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» DE G»2 KBWB » - EEN CLUB V«W SnXX BEBWJIKBS w DE 6502 KBtCR « - EEM BLflD VOOR 6X1XX 6EMJIKERS 



De vereniging heeft leiien in Nederland, Belgie, Duitsland, 
Frankrijk, Enpeiand, Denanriien, ZMEflen, Spanje, Pertugal, 
Oostenrjjk, Finland, Israel, (taerika. 
Het doel van de vereniging is: tet bevonteren van de ken- 
nisuitHisseling iussen gebntikers v«i 6XXXX-C— pwters, als 
CflmODORE-M, miGR, Pmi II/IIe/IIc/II6S/III, MCINTDSH, 
flTftRl 600/806XL/512/1024ST, DC-1. PBWaW, klU-iS, SYK, 
PET, BBC, VIC-20^ BflSIS 106, PWTW-coaputers. in-2020, 
OSI flCC BOOO, nOMN ELECTRDN, SYSTEM 65, PC-lOO, PflLIflS, 
MINtfl, FORWSfl, WIC-L STfWLIBHT, CV-777, ESTftTE III, 
SBC65/68, KIH, PCS, (©WC SYSTEH-4, Ele<tuur-co«puters 
(JUNIOR, en de OCTDPUS), LflSER, dus ook 6800, 6809 en 
68000-CMpiiters. 

De kennisuitNisseling Mordt o.a. gerealiseerd door 6 aaal 
per jaar DE 6502 KENNER te publiceren door het houden vw 
landelijke clubbijeenkoasten, door hei instandhouden van 
een cassette-tiibliotheek en door het verlenen van paper- 
nare-service. 

Verschijningsdata 
DE 6502 KDKR 1985 

aenie zateroag van 
februan, april, juni, 
augustus, oKtooer, oeceaoer. 

ReoaKtie-aores en mforia- 
tie over papertare etc. 

Wille* L. van Pelt 
Jacot Joroaensstraat IS 
2923 CK Kriapen/IJssel. 
Tel. : 01807 - 19881 

De vereniging is voiiecig onafnanneiijK, is statutair op- 
gericnt en ingescnreven Dij oe rtaier van Koopnancel en ra- 
Driesen voor Moiiancs fcooroerKnartier te fllKiaar, onoer 
nuMer 634305. 



Bijeenkoasten van de clvb 

deroe zateroag van 
januari, Mart, oei, 
septeaber, noveaber. 



Voorzitters 

^iirms VIeescn Dubois 

"1. Nigitingalestraat 212 

2037 ^5 raariea 

'el. : 023 - 330993 

Penningoeesters 
Jo/!n van Sprang 
•^ul? 7: 

2925 Erf Knopen/Ussei. 
Tel. : 01307 - 20589 



Sewretaris: 
Sert Kiem 
DiecenNeg 119 
6706 CM Mageningen 
'el. : 08370 - 23646 

fiecaKtie D£ ^2 KEMCR: 
Ml Ilea L. van Pelt 
Jacob Jorcaensstraat 15 
2923 W Kriaoen/IJssel. 
Tel. : 01807 - 19681 



LSden: 

Acn lanKel (05490 - 51151 ) raroi«re/sofr«are/D{}S65 

Ermn VisscnecijK (05490 - 71416 ) Haroi»are/50f«ware/D0S65 

-3er; van CpsroeK (01729 - 8636 ) U802/65816/68000 
Mco ce Vnes 'OlO - 4502S9) narc-/5ofti«re/58000 
Erevoorzztier: S:e? ce Vnes 
Erelecen *»t. -„ ce Vnes - Van cer xirsen 

flnton 'ueller 

-icaaa^scnap : voor 1986: -^I. 45,= 

voor 1987: rtfl. 50,= 
BuiTen Europa: 
voor 1986." -fi. 
voor 1357: -fl. 



Scve^^en7Ie5 



109,50 (inci. transfers) 
114,50 (inci. transfers) 



~aneven op aanvraag oij oe recast le. 



DE 6S02 KEMCR is een nitgave van de KIM Sebruikers Club 
Mederland. Het blad Morat verstrekt aan leden van de club. 
DE 6502 KEMCR Mordt van kopij voorzien door leden van de 
club, bij ite opaaak van een pubiikatie bijgestaan door de 
redaktie. De inzendingen van prograaaa's dienen voorzien te 
ziin van kiaaentaar in Oe listings en zo aogelijk door een 
inleiding voorafgegaan. Pubiikatie van een mzenaing bete- 
kent met dat de redaktie of net bestuur enine aansprake- 
lijkheid aanvaardt voor de toepassing ervm. De inzendingen 
kunnen geschieden in asseablv-source-listings, in Basic in 
Basicode, Forth, Focal, Coaal, Pascal, Fortran, Cobol, Logo 
Elan, etc. etc. ^ , 

De leden schrijven ook artikelen over oe door hen ontwikkel 
oe haroaare en/of aanpassingen oaarop. Zij scnrigven tevens 
artikelen van algeaene aard of reageren op publikaties van 
andere inzmders. 

DE 6502 KEItER IS EEN BLAD WN EN DOOR DE LEDEN 



Hicro-flDE flsseabler/Disasseabler/Editor is een produkt van 
Micro Hare Ltd. , gescnreven door Peter Jennings en bestead 
voor alie 6502-coaouters. Oe KIH Gebruikers Club Ned. heeft 
oe copyrights vemorven naoat ons lid Seoo Wolcringh de 4 K 
KIM-1 versie uitbreidde tot 8 K KIM-1 versie. fldri Hankel 
paste oeze aan voor oe JUNIOR. Hillea L. van Pelt stelde 
een nieuHe 8 K source-listing voor oe JiJNIOR saaen. 
De lapieaentatie op anoere systeaen oan oe KlPt-1 en J'JIIOR 
kan eenvouaig geneuren ooor het aanpassen van ce I/O-adres- 
sen, NelNe in oe sourcf^-listing geaaxkelijK te vincen zijn 

FATE Foraat-lister/cono. Rsseaoier/Tane-utilities/Eoitor is 
ce door ons iid Rod Banen geschreven source-listing van een 
12 K universeel systeea voor oe JUNIOR-coaputer aan Oe hand 
van net universele oisk ooerating systea van oe fa. Proton 
Electronics te haarcen. 

FATE worct bescniKDaar gesteio aet toesteaaing van Proton. 



DQS65 V2.0I is tne new systea of our ciuD, build witn Eie«- 
lor's D>i, VDU, 5S!»-carcs and our own professional Floppy- 
DisK-Coniroiiercarc for S3, DS, 40 or 80 tracKS and a aax. 
of 720 Kaytes capacity. For use witn 6502 or 
For aore mforaation, write to E.J.M. VisscheoijK 

Dillenlaan 11 
V.-7541 CX HIERDEN 
Tie new DuS65 V2.01 is naroware coapatiole with Elector's 
0CTiS>iS/EC65 coaputer, except tie control lercarc. 



In ne ecities van DE 6502 «EV>eR worcen regelaatig aeceCe- 
Iinoen geoaan over oe ooor ce ciuo georganiseerce bijeen- 
koasten. Ook worcen Oestuuriijtte aeoeceiingen geoaan, naast 
mforaaties over netgeen m ce nancel te Koop is. Lecen cie 
lets te KOop neoben of lets zoexen xunnen cit in oe ecities 
van DE K02 KEVteR oeKenti aaxen. Ook worcen orieven aan oe 
recartie geau^Iiceerc, evena.s specifieKe vragen van lecen. 
De ecities worcen saaerjgestelo op aasis van een groot aan- 
tal pnoriteiten, welne coor een reca«ievergaDenng worcen 
genanteerc. Deze vercacenng oestaat uit ce vaste aecewer- 
«rs zoais m ce colofon veraelc. tiet aantal mzencingen is 
groter can m een en>(ele ecitie van ainiaaal 48 pagina's is 
te verwerxen. iiercoor xan let voorxoaen cat een mzenoing 
eerst na enige tijo xan worcen gepuoliceerc. 
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Ib fiSQ2 HENCTt is piblish- 
Bd by the KIN Item Cli* 
The Netherlants. 

Mdnss all editirial, ad- 
wrtising and svbscriptiin 
imviries DE eSI» KEWe: 
c/a Hillii L. van Mt 
Jacab Jardamsstrart IS 
2923 CK KriUMi tflStml 
The ItotherlMis 

Editorial Staff: 

jOBN^il van MMttl 
FiWi S a t e hu ijzen 
' Caen Boltjes 

r'm'i'IIKfrS> 

Rab tan 

6ert Klein 
Rfl^er Langeveld 
Mart Lachaert, (telgiw) 
Fernando Lopes, (Portugal) 
Ffank Planshande 
JBtft van Opbrsek 
Leif Rasaussen, (Sweden) 
RoMl Uphaff 
Frans Verberkt 
Heraan Zondag 
Translitians: 
Fred Behringer (Geraany) 
ttillea van Rsperen 
Frank Bens 
Albert v.d. Bevkel 
Rene Hettfleisch 
Jaap de Haap 
Coen Kleipool (France) 
tttarten van LieaiiMt 

in part ar la afiale lAW- 
oat perafiiiaa fraa the 
publiser. I>ractising 
tf the pablished proaraas 
and hardware etc. aithoat 
responsibility of the pa- 
blisher and far personal 
purpose mllt^ 
DE ES02 KENIO appears 
in Febr, Apr, Nay, Jaly, 
Sept, Oct, and Dec. 

Copyright ffi) t9R6 KIN 
SawiiMiHt jUnb Nederland 

fti f 'ia thi 
caHt'fsllaicafiL kv 
by oar aeaber fld Breaaer. 

CW/Cm: E. Visaehedijh. 

Pheta t Pr. HiniMjk. 

The redaktion is airt yw 
pasible far the contents 
of the articles, prograas 
in the i»MS. iha arti* 
eles to be piftliahad haii 
to be aritten by the sen- 
der. 



rarerrs OF DE esc »(BiO m, 47, decbber i« wl. lo/w. 6 , 



1. Uitnodiging LedenvergaderingAjndelijke Bijeenkoast 17 Janaari 1SB7 

2. Van de reriahtia 

M R VISEDTEI-TERinm. (PRESTB.-5nNMRD) 



Latf Raaaaaaan, Denaark 
Rasaosaen I Lindstrte 
Ffans SaeBhaijzen 



Fred Behrinaer, Geraany 
Gerard van Roeael 



5. tmW ELECTRON 
Siaan Veartaaa 

.s. irrmi 

icnK apmsnijavr 

7a 



Pieter deiMw 
». APPLE . 

Frans Vei WIU 

Hans Bosch 
9» KOm flTON 

Frank Vergoo ss en 
10. JUNIOR 

Geffil van Hoerkoa 



Frank Bens 

Fernando Lopes, Portugal 
Ronald Heraens 
Marcel Breahink 

11. FORTH^ 

12. jjMItWg, 



HDD TO RDJU6T TIC CHfWnCTER GEtERRTOR FDR fOSSm 
TIPS HMD TRICKS FOR TIE ECESK/JIMOR 
HRHDOPY ROUrilC FDR OCTOPUS 
COLUMNS PRINT; for printing in tao colaana 
•BELL' for EOS 
SETTINS TnLLY-PRINTEX 

lf>GNnBE YOUR C-16 TP MRIE 
FROM 2364 TP Z7M EP WBN 
... HMflE PULEPGN BIJ CUMIORE 

... PRDCSaarcing 

... iiMn SCO n. HO NnomE cde pwhwmnb 

... ICT LE2EN m BflSICD^VDDR DOSGS liKl 2) 
». flPHE CmPHTIBLE CRSSEfTE INIERFRCE 

... DflTA-INPUT (EIEC) 
... SCREEN DtPf/EP 

... RTTY TZ/RX VDDR OE flCOIH HTDN VHN PfBELB 

... BRGRK-NEY ON JUNIOR HITN SERIflL KEVBOMD 
... EXTENSION OF 0S-65D V3.3 WITH DB. COPPM 
... DUBBELflDiESSERINB 

THE JUNIOR COifVTER flOnSITED 
SLAVE; Bootstrap Loader 
TEL£I PftSPRPR 19H 



HlSto^lll 



area Pr a|B f|t Bqland 



A SIMPLE EPRON DISC FDR SIXX CDKVTERS 
SDEEN FUKKERII6 
Erik v.d. Broek MOfiJP JMfflR 

Narc Lachaert, Belgiaa ... VOEtim BISK Si 
Gert Klein ... DOSES BASIC ^rsioa 2.10 fWRILABLE MM 

Hill Cttijpers ... SH0PPIN5 AROUND 

Bert van ttabroek ... TME APPLE TIGS: A IfiHMTS APPLE 11 
... lO ADMESS BRUTECK ELKTRto 
... PHILIPS «a.I(C 

... APPLE CORP. INC VERDUBBELT HII6T IN FtSCRRL Mtl 19BG 

... STIE OW CIA (fl aerica) TO JgF P ItTFIELD (Australia) 

... PRINTING ERRORS BASICODE INTERFACE ELEKTDR SQECIAL 2 PAEE 62 

... BLOCKBIAGRAN OF 1>C APPLE lOS 

... B RIEVEH RAN DE REDAKTIE 

BOBMHRiirnEt bow zeif gbi Eww r s H imj i 

l^oyraar articles, prog r aa s ^ aith a mm HWm and oe 8 Ifm^tncli by 
Wti 1» lines/paoe. 

I^^^r articles, p ragy aas etc. in Dqlish anless yaa need hel^ la So it. 



, af Smbi a ieii im baoa in yaw aM eaantei^ ar 
vaa mm w (U^um true attttaitai §mm. Mi aiU snid inTara^lipii la 
Iboit aoaprtCTiii^ft aNl %ff4t mim: Hm jaiaiiai aar einb. 



Send the naaes and ad die sa e s of the caapater aagazines in yoar coantry to 
the editorial office. He ail 1 send the aagazines infaraatians abaat our club 
to give attention to it and to get aeabers in yaur oan area. 
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U. 
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10. 
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27. 
29. 

13. 
41. 

14. 

8. 

32. 
12. 
20. 
38. 
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42. 

16. 
38. 

IS. 

m 
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4S. 
10. 
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10. 

'St* 
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UIIMBIBIME UNEUJKE BIJEEMflMST flSSENDEiJT/iaDICNIE 



Datw 
Lflkatie 



zaterdag 17 jamuri 19B7 ENTKE: Hfl. 10,= 

niMMe KMtiiK FQHBthKroMniie 

latatriflKg 12 te flHndBlft. Tel: 075 - 211911 

■nfc lit » iailtiig:mijiiilM 



Coentuiwl heleaaal afrijden. Aan het eind recMs- 
af (Mater aan linkerzijoe). Dan le afslag rechts 
richting Uitgeest-fllkaaar. Doorrijden tot stsplictr- 
ten. Linksaf spoorbaan over. Na 75 aeter linksaf = 
InfustrieMeg. Links aanMnrinte kiat Mn ep iat 
FOmO-KroMenie terrein. 

koaende uit de richting Alkaaar 

Snelneg AlMaar-Haariea. Afslag Uitgeest/Zaandaa. 
Bij kraising Hnksaf. Bij 3e stoplichten rechtsaf 
spoortHMen over. Na 75 leter linksaf = Industrieiieg 
Liiria aniiHdBMte kMl aeii op het FDBD-Krteaniie 
terrein. 

Trein: Station Kro— ■nie-tesendelft. Rectitsaf tot over 
spoarboaen. Na 75 aeter linksaf = IndustrieHeg. 
Links aanhoadende koat aen op het FDRBO-KroMenie 



09.20 - Zaal open. Ontvangst aet koffie. 

10.00 - Opening door voorzitter en ye melkoaing door gast- 

heer Co Filaer. Diashoa FDRBO-KroaMMik 
10.30 - Behandeling Jaarverslag 1986. 
mm - Nico de Vries behandelt het onriefMHI^ t vmii f MMi 

snelheid van 1 naar 2 Mte. 
11.30 - (toffj^pMae 
12. 00 - Fa na 

flanslvitend lunchpauze 
1X00 - MRKT. leder die iets aan te bieden heeft kondigt 

dit aan. , 

iZ. IS - nPOMEL GEDEEL1E. 

In dit deel hestaat er volop gelegenheid kemiis te 

aidten aet de aeegebrachte systeaen en de i^rai- 

kers ervm. 

NBI60DK UH SVSTEEN IS !!! 

V|IGE|T OMWIJ NIET SN mmWmM VERLB6- 

17.00 - Slutting. 




Apple IIGS. 



a 16'bits microprocessor 65C816 
1 256 Klobyte werkgeheugen (RAM), 
uitbreidbaar tot 4 Megabyte 

• 128 Kilobyte systeenigeheugen (ROM ) 
a ingebouwde RGB-poort voor 12 inch . 

kleurenbeelds±erm 

• ingebouwde poort voor 12 inch 
monochrome beeidscherm 

f gitische modi met maximale 
resolutie van 640 x 200 beeldpunten en 
kleurenpalet van 4096 kleuren 

• 8 uitbr^fflngssfewen g^Mct voor de 
standaard Apple II uitbreidingskit 

• poort voor 3.5 en 5.25 inch 
den 




ASSENDELF 



® 



Portier 

Portier 
Portier 
Gateman 



Ontvangstcentrum 

Salle de reception 
Empfangsraum 
Reception building 
Ssta de recepcion 



Kantoor 

Bureaux 
Buros 
Offices 
Ofictnas 



®(&Mit»a( masai^ 
Magasln eentraii 
Zentrallager 
Central warehouse 

Almacen central 



eTreinverb. Amsterdam-Alkmaarthalf uurdienst) 



Chemin de fer Amsterdam-Alkmaar (toutes les demi-heures) 
Eisenbahn Amsterdam-Alkmaar (jede halbe Stunde) 
Railway Amsterdam-Alkmaar (half hour service) 
Linea ferroviaria Amsterdam-Alkmaar (cada media hora) 

(8) FOFIBOKFDMMENIE BV 

lEWEG 12 

-HOLLAND 




075-^ 



a 2 RS422 seriele poorten voor modem, 

plater of J^pteTalk-netwerk 
a^md Mvm$2 QSGillatoren/l6 

a atjdio-Miriuteng voor stereo- 



• poort voor joystick en handregelaars 

a toetsenbord met 89 teetsen en numeriek 
to^eflbtok eft ewscwDeieft 

• aansluitingsmogelijkheden voce demuis 
aan het toetsenbord 

a muis 
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Redaktloneel » 

Het jaar 198fi Is weer bijna voorbij. Nog wat feestftlij n&§ 
wat drinken, en dan begroeten we 1987 met goede voornemens. 
Uw redakteur is daarin even loyaal als U. Hij neettit zich 
voor de edities van DE 6502 KENNER nog aantrekkel i jker te 
maken. Het bestuur zal hem daarbij txog een harvdje helpen, 
door een daisywheelprinter aan te sehaffeh. Oat betekent 
nog niet dat alle pagina's daarmee bedrukt kunnen worden. 
Leden trachten mijn tijd te sparen door in samenspraak 
met mij zelf hun pagina's op te maken. Tijd, die hard no- 
dig is voor vele andere nog te ontwikkeien of verder uit 
te bouwen idee6n. Doordat leden proberen hun eigen pagina's 
op te maken, doordat - vanwege de kans op fouten - nlet al- 
ios overgetypt kan, zullen altijd pagina's aanwezig blijven 
die een ander leesbeeld vertonen, enigszins vari'erend in 
kwalitelt. 

Uw redakteur neemt zich ook voor, net als in 1986, de in- 
f ormatiedichtheid in de edities nog verder tot onderwerp 
van zljn zorg te maken, zodat er voor hetzelfde lidmaat- 
sohapsgeld (in 1987: f 1 . 50,= voor europese C.E.P.T.- 
landen) weer meer kennis wordt aangeboden. Om dat te ver- 
wezenliifken moet Uw redakteur meer dan nu al het ^eval is 
een beroep op U doen U in te zetten voor het verwerven van 
die kennis. Niet alleen, zoals nu al door een flink aantal 
leden febeurt, wijn en Uw applaus verdienend, door program- 
ma's ter publlkatie aan te bieden, maar door U op te geven 
als kontaktpersoon voor Uw gemeente, door Uw modem in te 
zetten voor het pi^aatsen van redaktlonele berichten In da- 
tabanken in Uw eigen telefoondistrikt, door namen en adres- 
sen door te geven van mensen met een 6xxxx-computer die U 
kunt vln-den In Ow eigen omgevlng, de lezersrubrieken van 
computerti jdschrif ten , door mensen bij U uit te nodigen en 
Uw ervaringen met onze club door te geven en ons blad te 
laten zien. 

Uw redakteur neemt zich voor, gezien zijn verwachtingen dat 
het moeilijker zal worden uit de nederlandse dreven nieuwe 
leden aan fee trekken , iMt te gaan met het aantfekken van 
nieuwe leden in andere landen. In dit verband moet het mij 
van het hart dat verzuchtingen over het nederlandse karak- 
ter Van onze club wellswaar befpljpelljk' lijn f#zl«n de g©- 
schiedenis van de club, maar dat ook van oudsher voor nie- 
mand een lidmaatschap kan worden geweigerd, dus ook niet 
voor in het buitenland wonenden, op grond van dfize statuten, 
tenzij het qaat om niet natuurlijke personen. 
Het is geen eenvoudige zaak de konsekwenties van deze open- 
heid te aanvaarden, d.l. het gebruik van de engelse taal in 
de edities van DE 6502 KENNER te handhaven. Soms kan dat 
zelfs heel omvangrijk zijn doordat de buitenlandse leden in- 
tensief gebruik maken van deze gelegenheid. De enquete, d©or 
het bestuur gehouden, wljst uit dat tegen het gebruik van de 
engelse taal geen overwegende bezwaren zijn in te brengen. 
Het dient ook ons doel van elders kennis te verw#rven. Ik 
ben mij ervan bewust dat sommigen moeite hebben met het en- 
gels. Daar waar dat tot echte problemen voor hen leidt, la- 
ten zij zich met mij in verbinding stellen, dan zoeken we 
naar wegen om moeilijk leesbare artikelen leesbaar te maken. 
We zijn een club van mensen die elkaar willen helpen. De en- 
keling die op dit punt problemen heeft verdient van de leden 
h u 1 p . 

Als ik op die manier van dlenat kan zijn wordt 1987 voor ons 
allemaal een fijn hobbyjaar. 
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BhsrfVare adjustments for Junior/Octopus with VDU-card 
far use as a VIDEOTEX-Terminal . (PRESTEL-Standard) 

by: Coen Boltjes eel: 015-136812 

Nw. Plantage 9 vidibus: 400029830 
261^ Xlf Delft 

Translated by: El ja van der Veer 

IH'I^TiBiefetW VIDEOTEX is the international name for 
wfc«t 4» eatled VIDITEL by the Dutch PIT. In using the 
Jaaierir/ietS^ us » trldeotex terminal a numbet af fmfi~ 
ai^lnenf s il^e fteswasikry additional to a pc9ffaBi« 
ne. Sn a a^C t$aae.;tl>e s6f£iuarii will be descFibed. 
Mldw tte Mr4t«¥# ttdjustments follow. 

In using the computer as Videotex-terminal it is fie^e^-* 
s*ry that reverse- and mosaic-characters can be presen- 
ted. TbS# can be realised in at least three ways: 

1 ) Construct the new VDU-card, of Pieter Vlsser (s»e 
Issue nr. 44) This is the memt. Il^lble.thetigh the 
most expensive, solution. 

2) Reprogr^. the charactergenerator . This is an inex- 
pensive solution, but also quite a Job and an EPROM- 

^Prograowir must be available 

3) Cattf dafi the adjustments as described below. 
Alt^a|lt this takes some time, It is cheap. 

The grafic charaeters from de standard VDU-card are 
replaced by the reverse characters, which uses the 
codes $80-$FF. For this purpose the connection between 
pen 9 IC18 and pen 4 IC19 must be cut. The latter must 
be placed at zero, the first one must be connected to 

12 of N33, The td.c«-brldge S/T mnst be reinoved, and 
will fall Into, disuse,' 

Now the adJtisaHsafes -for .reverse «te£M£ieei ire eoaqple- 
ted, and can be tested ^ (le«erse-eodes la d* I^I^IUtt) 

The mosaic characters are to be generated by the codes 
$00-$lF, because these codes are reserved for control- 
ling characters in ASCII, so they are not used in the 
VDU-RAM, Sa^ ol thii!; «odt that has been set corres- 
ponds with a fiuorescent bloek (see fig 1). The block 
on the right below can be put on by using reverse**; 
characters. If the mosaic code is offered to the OfcBl?ac- 
ter genesator , the, itOH la e^^^led , and thc^ Jwtrtiware of 
fig I Is selected', this jAII then 'take care of trans- 
ferring the building information. 

Personally I have brared the ROM in a wire-wrap foot on- 
to a small piece of print, on wich the rest of the cir- 
cuit was build as well. As the W^Moot ^9 long ^as it 
can be placed completely in the foot ef the WXfeard. 
(Be sure you cut pin20 from the VDU-card to the exten- 
tion print) The numbers between the signalnane and the 
pen number of an IC Is the corresponding pen on the ROM. 

note: It is possible that there are little lines visible 
between normal- and reverse characters . This is 
caused by the differend Propagation-Delay times of 
IC17 and IC18, which can result in a spike on the 
output of N34. Using a Edge-triggered Flip-Flop 
(74LS109, 74LS74, 74LS175) between the output of 
N31 and the input of N22 will synehiroiil^e fehe 
reverse- and building informati^v tbe DOTw 
freqttentie is used as clock for the Pllp-Flop. 



For communication with a Videotex databank a modem' is 
used (See Elektuur sept 1984). Communi<;ation between 
Che (own) computer and the modem taiess pla&e Vy means 
of a serial RS232 interface. 

However, as the sending and receiving speeds differ, it 
is not possible to use the interface on the print of 
the CPU-card. (Note: this does not hold for modems with 
a built-in re-speeder.) It is possible with the 6551 
used on this print to send with a speed which differs 
from the receiving speed, but in that case we must 
offer a receive clock on the RxC line (5). Therefore 
you can use only part of the interface below. If 
you don't want to adjust the interface on the CPU- 
card, or when you use a Junior you have to build 
a new serial interface. 

Therefore, an interface was constructed with the help 
of the 6850 which has separated RxC and TxC lines. By 
presented different frequencies it will be possible to 
work on different speeds. 

The frequencies are deduced from ICl which is transfer- 
red to the ACIA IC5 through the multiplexers IC2 and 
ICS. Establishing the multiplexers is done with the 
help of IC4. By writing 0-7 in the lower nibble and/or 
the higher nibble the frequencies can be selected. 
By using the scalefactors 16 and 64 most of the current 
speeds can be moderately realised. (see table) 
With the Junior the interface must be built twice be- 
cause the keyboard must be read as well. This can not 
be done in the usual way, because as a result of the 
realtime character of the software the computer must be 
able to test whether a key was pressed or not. 
Not ice that if you don't want to change the speed of 
your keyboard you can directly connect the RxC line of 
the ACIA for the keyboard to one of the lines of ICI. 
For generating the /CS signf^S pWs <Mr«J«I,|S til Elekttiur 
jan 1984 is referred to. 

Also, one may use the circuits published earlier or get 

into contact with the author. 

Take into account, after building the interface, that 
the ACIA's cannot be reset by a hardware reset. In the 
reset- or bootroutine this must be- done %f storing $03 

in the controlregisters . 

Red.: The author also worked out the suggestion 

to. solve Ijlie.froblem with software following 
^:h:is ajPl^leie^*' 
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4 

0 



e 5 a 



KEIMMER 



6. . 


13 


ICl 0 
A 


7 . 


14. 


B : 


6 — 


— Ui. 


c : 






0 8 





tl 1 .,m8i-lC5-74US24A 

JC II 12 3 4_ 5_ 

+SV| U rS K 14 20 
OV » 8 7 7 7 10 

IC's ontkoppelen met 100 nF 




.20 OE 



Fig. 2 

Character-gtntsttor 
Extensions 



ICl 


Oil 




09 






OS 


- ^ 




G7 






06 




HS 


05 
W 

OJ 






It. 





BOUDRATE BOIIDRATE 





Z 16 


Z 64 


0 


75 


18.75 


1 


300 


75 


2 


600 


150 


3 


1200 


300 


4 


2400 


600 


5 


4800 


1200 


6 


9200 


2400 


7 


19200 


4800 




IC 


+5 


0 


ICl 


16 


8 


IC2 


16 


8 


IC3 


16 


8 


IC4 


20 


10 


1C5 


12 


1 


IC6 


14 


f 


IC7 


14 


7 


ICS 




7 



+ 12 



Nl 
N4 



IC's ontkoppelen 
met IQP nP 



1C1 = 
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14 



III:F4060 
CD4512B 
CI)4512B 
74LS374 
6850 

3/4 74LS0( 

3/4 1489 

2/4 1488 

IM 

2K2 

lOOpF 

22pF 

Inf- 



3fU4.9152 H||2 



5 



EfB 5 □ ^ KEtslNEf^ 



How to adj-ist the character generator for VIDEOTEX 

By: Coen Boltjes Telephone 015-136812 

Vidibus 400029830 

l)Load the first half of the old character generator 
In your system (Starting at $8000) 

f')Execute the MOVE program with an "ASL A" instruction 
instead of the "NOP" instructiofi. The characters are now 
shifted one dot to the left, and stored In $^000-t9B00, 

3) Move the characters one line down. (8000=8FFF, 9800) 
These shifts will cause better inverse characters. 

4) Fill the locations $8000-$8200 with the contents of the 
hexdump, and save the first half of the new character 
generator on disk. (SA 13,1=8000/8) 

5) Execute the MOVE program with an "EOR #$FF" instruction 
instead of the "NOP" iastraettOH, and save the second 

„ half of the character generator on disk.(SA 14,1=9000/8) 

6) Program a new 4K EPROM with track 13 and 14. 
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wo 


m 


FO 


FO TO 


re 


f& 00 00 os 


00 


00 


06 


00 


00 


00 


30 


0044= 
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;INIT TRANSFER POINTER 
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; PLACE HERE INSTRUCTION 
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;PALCE CHARACTER 
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lOPEM ************************* 

20REM *** FRQCsearching «»* 
30REM *** <c) by S.Voortman ttt 
40REM *** Beatrixweg 28 *** 
50REM *** 3253 BB OUDDORP »** 
60REri *** The Netherlands *** 
70REM *** Phone 01878-3113 *** 
80REM 

90PEM *** For the Acorn Electron 
lOOREM *** Program Lsnghts 1911. bytes 

llOREM *** (p) 1986 

120MnDE4: VDU19, 0, 6; 0; 19,1, 0; 0; : Inha^s lnl=0 

130PPINTTAB (3, 3) "Thi s program prints all DEFPPDC s" ' " and 
raffls. " ' •■■ "Type in the page of the program which" ' "DEFPROC' s 
to know. " ' 

l40PPINT"The program's output is as -Follows:"' 

150PRINTSPC (4) "XXX DEF PROC/FNname" ' " XXX stands -for th 
C4"DEF PPOC/FM, and name -For " ' SPC4"the name o-f the PROCedure- " 

160PRIMT' "At. wich PAGE str?.rts the program" •" (tastv-^een ?'.E00 and I'.&OOO) " ^ 

170INPL1T page* :page=EVAL ( "S;"+pagef ) : IF page <S<EOO OR page >S'.6000 THEN PRINT" : 
can't believe this is true! "'"You must have made a mi stake !" s SOTO 140 

180IF ?page<>S.;OD THEN PRINT "Bad program at PAGE ";~pagesEN© 

190IF page?l=S'.FF AND ?page=S^OD PROCend_o-f _progr am: END 

200VDU12, 2: PRINT' SPC3"PASE ?•<" : "^page 

2 1 01 nh =p aqe"^' 1 : 1 n 1 --p age?2 

220IF" lnh=0 THEN 1 i nenumber=l nl ELSE 1 i nenumber = l nh*256+l nl 
lel enght=oage?3 

page?4=S<DD THEN de-f=TRUE ELSE de-f=FALSE 

de-f=TRUE AND page?5=S'.F2 THEN proc=TRUE ELSE proc=FALSE 
proc THEN 310 



DEFFN's in BASIC -pre 
and DEFFN's you want 



line number of the" 



2301 1 r 
240 IF 
250 IF 
260 IF 
270 IF 
280 1 F 



def =TRUE 
fn THEN : 
def -TRUE 



AND 

:.io 



page?5=§.!A4 THEN -fn^TRUE ELSE fn=FALSE 



AND page?6=S<A4 THEN page=paQe + l 
iber) 



proc=TRUE ELSE 
fn=TRUE ELSE f 



AND proc=FALSE AND page?6=?'.F2 THEN p«ge=page+l 

roc=FALSE 

300 IF def=TRUE AND prDC=FALSE 
FALSE 

3 1 0 1 F def * p r DC = 1 THEM PROCpr DC ( 1 i n en 
320IF def*fn=l THEN PROCf n ( 1 i nenumber ) 

330page=page+linelenght: IF page?l=g!FF THEN PROCend.Qf _#roiram: VDU3: END 
340G0TQ 210 

350 ■ ■ ■ 

360DEFPR0Cend_Df ._program:REJ1 END , 
3~'0PR I NT "Program ends at line "slinenumber 

380ENDPRQC " . 

400DEFPR0CprDC (1 i nenumber 
410proc*=* (page+6) : F%=0! L=LEN (proct ) 
420REPEAT : F%^F'/.+ 1 

430UNTIL MID* (procf, F7., l)='Vs QP. F":=L+i 
440proc$=LEFT* (proc*,FV.-l ) 
450PRrNTj 1 inenumber ; " DEFPRDC" ; procf 

4A0ENDPR0C 
470 

480DEFPR0Cf n ( 1 i nenumber ) 
490f nf ( p aqe+6 ) : F%=0: LsLiMCfft*) 
500REPEAT:F":=F%+1 

510UNTIL MID*(f n*,Fy., 1)=" = " OR F%=L 
520f n*=LEFTf (f n«,F:;) 
530PRINT; 1 inenumber; "DEFFN" ; f n* 

540ENDPR0C 
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Description of PROCsearch : 
Lift©; d©»€i 

120 M0DE4!Set screen =ize (40*32 characters ), VDUl?. , , iB«]tl«.:^»y»# 

colour magenta(6), Foreground colour black(O) 
1 30 PR I NTTAB ( 3 , 3 > " t ex t . . . " " The ' means Pepfeat i ng the 

PR I NT-statement , like PR I WTTAB ( 3 , 3 :> " t bx t . . . " : PR I NT 
180 IF ?page<>&OD ... Every BASIC-program starts with ?;0D, i -f it 

isn't pres©hts it isn't a BASIC-program! 
190 IF page?l=?<FF. . . A '?<FF' a-fter '?<0D' means the end o-f a 

BASIC-program 

200 WUi2,2 this means! Glmmr screen<12) and printer on<2) 
210 page71 is linenumber MSI, p<ag«?2 is linenumber LSB 

220 Calculate linenumber 

230 page?3 i<m lenght o-f ®ASIC-lin« < inclusive 'S<0D' at the begin- 

ning and the 'S^OD' of the -following lineJ^ 
240 '8<DD' is token for 'DEF^ 

250 "mi' is token -for 'PROC 

270 'S<A4' is token -for 'FN' 

29e»-300 Search -for a space between DEF and FN/PROC 

StO-340 Per-form linenumber , PROC/FN name, set ccHAftters l©r next line 
410-450 Read PROC name out of memory, check for ' s ' and PRINT 
490-530 Same for FN's 



A program line is stored (in memory) as follows! 
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» BREflK-KEY ON JUNIOR UITH SERIAL KEYBOARD t 

Byi Berrit van UoerkM, The Netherlands 

Referring to the article of fl.C. Tijiions in issue 37 I 
hereby give my solution of a Nell functioning BREftK-key. 
The original situation has two disadvantages: 

1. Every key on the keyboard acts as BREAK-key 

2. A running BASIC prograa can only be interrupted during 
screen output 

The foIloMing solution is Mde for the JIMIOR Hith 0S-6S0 
i)OS, but can sieply be adapted for the cassette JUNIOR. It 
is based on the assumption that a separate Bi^-key as 
described in Elektuur, May 1983, is present. 



10 
U 
20 

30 FEfll= 
40 Fft80= 
SO 23^ 
fiO 

70 FOIA 

80 FOIA iCWS 
90 



;stop-key JUNIOR 0S-6S0 V3.3 Kith 
;W)U-card 

Sm «$Ffl80 
KPSO ««2325 

BRKTST m BREAK 



100 F594 

110 F534 2C80FA 

120 FS97 1004 

130 FS99 R02523 

140 F59C 60 
150 F59D A20fl 
160 F59F 2081FE 
170 F5fl2 2C80FA 

180 F5A5 30F2 

190 F5fl7 CA 

200 F5Aa D0F5 
210 FSAA %80FA 

220 10F6 
230 F5AF 6C7CFA 
240 

250 0813 

260 0819 2094FS 



«=$F594 
Ct£CK BITSPAO 

m. mPK 

RETURN LM KPOO 

RTS 

BREAK LDX *10 
MEXT JSR DELBIT 
BIT SPflD 

BNI lETURN 

DEX 



BNE NEXT 

BIT sm 
m. HfliT 

JHP (iFATD 



;key depressed? 
;if yes then 
;test BREAK 
;0S-65D needs 
;this 

bitcounter=10 
wait 1 bittine 
serial output 
still high? 
if no, then 
return 

decreaent bit- 
counter 
10 bittimes? 
Hait until 
BREAK-key 
;rtleas«i 



«=$0819 

QfSTP j9i CHECK ;ch«>k B^-key 
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« UPGiMDE YOUR C-16 TO 512 KByte « 
«t illttlllttlMll lil tWMlllllfilIllBI 

By i Fnd Bekriiigtr, iN^H^nnqr 

flctually, it's but 4fl4 K ; Mhenever an address occurs 
within trie first 4 K. the circuit snitches to block no. 0. 
There are S blocks Of 64 K each and the smitching is done 
by P0KE232,0 ... 7 . 232 (i.e. $E8) is the last (zero 
paae) location of a block of addresses reserved for user 
softHare. Thus, by loading each 64 K block in turn Mith 
BASIC prograts and putting the end-of-prograi vector 
$2D/*2E sufficiently high, the upgraded machine offers an 
innediately usable variety of 484 K (!) of BASIC prograis 
which can be called upon by one of the pokes Mentioned 
above. 

I don't know yet how reliable ty circuit is. The only 
thing I know is the fact that it works, find I'«i happv 
about it since I had no oscilloscope at «y disposal, and I 
needed soioe experitentation to find out which type of ICs 
worked best. This is why I used the ALS type for sone of 
them LS for others, and HCT for the 137. 
And this is how the upgrade works: 

{1} The whole thing is based upon ay 64 K upgrade which I 
reported on recently (replace«ent of the two 4416s by 
two 4464s). 

{2} Whenever the current address is less then ilOOO, the 
output of one of the ALS2&0s goes high and switches 
the multiplexer LS257 such that the CAS signal is then 
applied to block no. 0. 

{3} If the current address is $1000 or Aore, the US 
signal trigfn;! tte il tnnMt inpttl tf IC mW, Tht 



a'high-going pulse at 
So I needed an extra 



(sotewhat delayed) pulse then triggers that DRAM 
block which is determined by the particular output of 
the HCT137 which has been decoded [see (4)}. In order 
to wait for the current address to be stable before 
switching the LS257, the output of the ALS260 
•entioned is first applied to the data irmut of an 
LS175 (D-type flip-flop). Only when the WS line goes 
low, this information is transferred to the select 
input of the LS257 via the Q output of the LS175 
(where it is held until the next going low of RH5). 
Actually, what was required was a high- 
the clock input of the LS175. 
LSOO inversion. 
{4} Whenever $E8 is called upon by a write operation (such 
as POKE, driving R/B low), the output of IC ALS 133 
(working together with the two ALS2&0s) goes low. As a 
result the BE input of the HCT137 is driven low. The 
outputs of the HCT137 are now floatino depending on 
the data inputs currently applied, 'he input data (0 
... 7) will be properly decoded as soon as R/Q goes 
high (driving 5t high). 

(R/R goes high prior to the data beconino invalid.) 
In order to get hold of address lines AO - fil5, I glued 
one ALS260 on top of U7 (LS257), the ALS133 on top of the 
second ALS260. 

(The dynamic RAns' sockets would supply the multiplexed 
address lines only). 

The rest of the circuit was mounted on a piece of vero- 
board and connected to the sockets where the two 4464s of 
•y 64 K upgrade, reported on recently, were plugged in (US 
and U6). 

The resistors <t the outputs of tht HCT137 were tht 
rttultf of soM txptritmttliifti 




a series' of t^era «s 
l*»t t^w IS tyiw !€» «te tee 
siOH tc- quar-rtintee m errcs 
m ^ar^'x-snitc-:.'"^. After re- 
p-3Cir>g LSl"^, -S2^. .Br% 

a''£ S-s;^-. 

815257, fii.SOC', a-C S-E::; 
there were no more errors to 
te' oaservec. resist crs 
S.&K sHettld ae v«Hvec. 



TO SS PINS Of DRAMS Uik 
EACH LINE TO 7xl,l>6K (HIGH.LOW) 

LAST LINE REPRESENTS BLOCK 0. 
mm IS SWITCHED IN WHENEVER 



HERMAN ZONDAC 
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#♦♦♦#»♦«♦♦♦#♦♦«♦#♦♦♦♦*♦♦♦♦ 

♦ FROM 2364 TO 2764 EPRO« ♦ 
" *************************** 
■ ' ' COmOPORE 64 

HilSL. : HAKON RUSTBO 

In computers and peripherals you'll often find cofiponervts 
Nith strange code nunbers. Mostly it's hard to tell what 
function the coaponent is meant to have. When you have to 
do with the various kinds of ROM's it's relatively easy to 
find the pinning, for instance in order to change its 
contents. One of these types is the 8 K ROM 2364, which 
comes in a 24 pin package. The only alternative is a 2764 
EPROM with 28 pins, aaking it pin-cotpatible by aeans of 
an adaptor socket, lli fttlllMMl it i .it^:rt^t»i «f KM' 
to do this, 

»Take a 28-pin and a 24-pin socket. 

♦Bend pins 20 t 23 of the 28-pin socket outwards. 

♦Make the following solder connections on the 28-pin 

socket: \ j 

-Connect pin 14 to pin 20. 

-Connect pin 1 to pins 26, 27 ( 28. ' 

-Solder a Hire, 6 cti long, onto pin 2. 

-Solder a Hire, 3 c«i long onto pin 23. 
♦Now insert the 28-pin socket into the 24-pin. 

-Solder the Mire ffMr fit f'WlB |^fi fl ''«f -^m H-flft 
socket. "' ' ' ^■ 

-Solder tte iilNi f re* pin 23 ants pin II ff t|f U^i^ 
socket. 

The adaptor socket is now ready for use. One of the pos- 
sible applications is to take alterations inside BfelC. 
KONITOR or KERNAL of the CoModore M. 
As a control, check the foUoMing connections. 
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Printing errors in the article of the BftSICODE-interface 
Card in Elektuur Coaputer Special 2 p^ S2. 

IC 1 and IC2 are exchanged and the SYNC m NNI 

(12c) are also exchanged. 

0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

BRUTECH Electronics Manufacturer of Microprocessor Appli- 
cation cards in EURO CARD fortat for 6S(@ and $1009 has a 
neH address: Industrieweg 42 
3641 iM NIJSRECHT 

BRUTECH Electronics developed expansioncards for 5XXX froi 
the beginning of the KIM-1 and the SYM-1 computers. 
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HARMTE mmm m 

Gerard van Roekel 

Is het U ook opgevallen dat wanneer Uw co»puter een 
uur aanstaat, aeze aan de onderzijde toch wel vrii wart 
Hordt? Ook de diskdrive kent dit verschijnsel. Hij kan 
zelfs zo heet worden dat de diskettes er gegolfd uitKOMen. 
Enige tips kunnen dit leed wellicht verlichten. 

Plaats Um apparatuur nooit op een tafelkleed, Hierdoor 
Horden de ventilatiegaten afgedicht en is er heleiaal geen 
keeling aeer aogelijk. 

Plak onder Uh CoitAodore en diskdrive zogenaaade plakbud- 
dy's. Dit zijn rubber dopjes, die aan een zijde voorzien 
zijn van een plaklaaq en ongfiveer 8 M hoog tijn. Dit ver- 
hoogt de koelaogelijxheid. 

Als Uw prograama is ingeladen en U naakt voorlopig geen 
gebruik leer van de diskdrive, haal dan de diskette eruit 
en schakel de drive uit. 

De voedingstrafo in de diskdrive heeft behalve een 220 
Volt aansluiting ook een 240 Volt aansluiting, Soldeer de 
draad op de 220 Volt los en soldeer deze op de 240 Volt. 
Het doet aan de mt\m§ mi^ if, uar dB MtfNlifMteilB- 
ling is geringer. 

Verwijder uit de coiputer het karton set zilverpapier wel- 
ke werkelijk alle koeUogelijkheid benoeilijkt (bij de 
nieuwere types is het reeds verwijderd). 
Hanneer aen het geheel inbouwt in een kast, wordt het ei- 
genlijk noodzakelijk on een koelventilator toe te 
welke in ieder geval de diskdrive van de nodige 
voorziet. 

Indien U zich niet kapaoel acht oa in te gri jpen, 



naar de bijeenkecst. Ueliii^ d^Hiir 
kan zijn. 



passen, 
koeling 



kott dan 
U van dienst- 



PHILIPS NEWSLINE 

PHILIPS Eindhoven The Netherlands offers her employees and 
those concerned, like journalists, a daily refreshed last 
news line. If you are interested in product-news, business 
reports etc., you can phone 040 - 755255. This bulletin 
takes about one amute of your tiae. 
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♦ flTfl.RI 600 XL AND MACHINE CODE PROGRflMNING » 

Henk S|ieksnij(ie«^,-71» Netherlands 

The nanual of the ATARI 600 XL contains alaost useless in- 
fortation about eachine code prooraMing, but i^ecause I've 
been Horking on Elektor's JUNIOR ceafpotWi . TiMe.able to 
find out hoH to do. Try this! 

10 FOR J=0 TO 9 

20 READ D 

30 POKE 1536+J,D 

40 NEXT J 

50 LET X=USR(1536) 

60 ? X 

100 DflTfl 169,0,133,212,169,1,133,213,104,96 

Uhen you run this prograa, there will be 256 printed on 
the screen. 

Uhat happens is this. In line 100 is the tachine code, 
line 10 upto 40 reads the machine code and stores it in 
RAM at address froa 1536. Line 50 takes the aachine code 
Morking. This aachine code prograa is very stall and only 
to shot* soieiliing: LDAIH 0 169 0 

STflZ 212 133 212 

LDAIM 1 169 1 

STflZ 213 133 213 

PLA 104 
RTS 96 

The prograa in line 100 is in deciaal and not hexadeciaal 
because noM line 20 and 30 are siaple. This prograa stores 
a zero in address 212 and a one in 213, then it pulls one 
byte froa stack and returns to BASIC. Then your BASIC 
takes this calculation: 

X=PEEK(212)^2S6«PEEK(213} 
M tttpialwi iri^ M is fFfiiitf Id liMi 60. 

The PLA instruction is always in this kind of aachine code 
prograas just like RTS. The RTS is clear because the pro- 
graa execution tust return to MSIC. The PLA is there, 
because the ATARI BASIC puts one byte at the top of the 
stack, this byte contains the nuaber of paraaeters. 
The use of paraaeters with the USR function is very inte- 
resting to do great things Mith aachine code. 
Make line SO like this: 50 LET X=USR( 1536, 555) 
and line 100 like this: 
100 DflTfl 104.104,133.213,104,133,212,96 
and line 10 FOR J=0 TO 7 

The rest of the prograa reaains the saae. Now after RUN 
you Mill see printed on your screen 555. That is the saae 
nuaber as in line 50. This nuaber can be any nuaber froa 
zero to 65535, but it is also possible to user variables. 
Uhat happens in line 50 is: at first the BASIC puts three 
bytes on stack. The first has the value 1 because there is 
one paraaeter. The secsmd «id third teies «re the high 
order and Iom order vf iMi psmiii»i>^'mm'mMm code in 
line 100 is noH: 



PLA 
PLA 

STA2 213 
PLA 

STAZ 212 

m 



104 
104 

133 213 
104 

133 212 
91 



pull nuaber of paraaeters 
pull high order byte 
store this in 213 
pull loH order byte 
store this in 212 



IMil noN I always used in line 20 and 50 the wmim' 1SI6. 
That is the beginaddress for ae to Hork with aachine code. 
The biggest prograa so far was 140 bytes. If you want to 
aake bigger prograas, then it is possible to do so, but 
the nuabers in your prograa depend on the aaount of MM 
you have and on tne size of the aachine code prograa: 



10 POKE 106. 62: GRAPHICS 0 
20 FOR J=0 TO 512 

30 READ D 

40 POKE 62*256+ J, S 
50 NEXT J 

In line 10: if there is 1£ K RftM then 64-p, wnere p is the 
nuaber of pages (wit:! 255 bytes) you need. In 
this exa»?le 64-2=62. 

In line 20'- The n<iflber of h^tm ttf tie pograa, in this 
exaaple 512. 

In line 40: The une nuaber I* (iWd in llMi 



SOME QLESTIONS TO THE EXPERTS: 

By: Henk Speksnijder, The Netherlands. 

The ATARI BASIC prograas usually start at 2060 or in this 

area. Froa 0 to 255 is page zero, and I only know the 

aeaning of 35 page zero addresses. Froa 256 to 511 is the 

stack. Froa 512 to 2000 there are soae interMtH^ liiftllS, 

but why is there so auch filled with zero? 

Froa 1244 to 1400, 1447 to 1792 and 1820 t» 2e» il mSf 

zero! Is that 700 bytes RAM wasted? 

Uho knows about pane zero? Send your letter to the editor. 

He takes note of it and will infora ae. 
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AVAILABLE ' FOR ' YOUR ' 0CT0PUS/EC65 ' COMPUTER : 
40 TR, SS, UNBOOTABLE DISKETTE ML No. 1 

COPIER VERSION 2.3 + 4 BASIC PROGRAMS 



Dr. Tietsch (Geraany) published in DE 6502 KENNER no 
43 and 44, April /June 1966, his Diskette Copier ver- 
sion 2.2, a aodification for scrllt •yttiH fel^ dou- 
ble-sided disk-drives. 

Marc Lachaert (Belgiua) published in DE 6502 KENNER 
no 45 his error patches on Dr. Tietsch' s Copier rou- 
tine. 

This diskette aakes copying of your diskettes a lot 
easier. 

EXTRA: Four BASIC gaaes (Dutch language) : 

To let the prograas run properly the OHIO-DOS has to 
be changed. Boot first with the ML BASICOOE disk. 

If you ordered the 0S65-D patch diskettes earlier at 
the editorial office : 

Send eapty diskette with label and R/W protect label 
to the editor's office. Send cheque of HFl. 22.00 to 
H.L. van Pelt (Eurocheque = Hfl. 12,50). 



Price only for European (C.E.P. 
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T. ) countries. 
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DIECTORY DISK 5. a 

far Elektor's OCTOPUS computers 



By : Marc Lachaert, Belgium 

TRACK MEMORY 
SEC PflS 



NAME 



DESCRIPTION 



00 
01 
02 
03 
04 
05 
06 



07 



09 - 

10 - 

11 - 



12- 



13 



2200, 29FF 
2AO0,31FF 
0200, 09FF 
OAOO.llF 
1200, 19FF 
lft00,21FF 
2200, 22FF 
3200, 32FF 
0000, OOFF 
0200, 09FF 



OflOO,llFF 
1200, 19FF 
lfl00,21FF 
2200, 22F 
2E7I^2F78 



5E00,5EFF 

5FO0,5FFF 
2E79,2F78 

25flO,269F 
2E79,2F78 
2E79,2F78 
2C04,2D03 
2E79,2F7a 
3274, 3B73 



V3.3/1 

V3.3/2 

BflS/I 

BfiS/2 

BAS/3 

BAS/4 

B/5V/3 



ASM/1 



ASM/2 
ASM/3 
flSM/4 
ASM/DI 



0S-&5D V3.3 part 1 
DS-65D V3. 3 part 2 
BASIC part 1 
BASIC part 2 
BASIC part 3 
BASIC part 4 
BASIC part 5 
0S-65D part 3 
0S-65D part 4 
OSI Asseibler/edi- 
tor/ext. ■onitor 



part 
part 
part 
part 
PART 



V3.3/4 



'directory' copy, 
contains only 
'DIRECT' and 
'TRKNUL' 

Etpty *iir«:t»ry' 
copy 

} NL-progs in use 
} for disk operat. 
} util in BEXEC* 
'Directory' copy 
with users file 
BASIC overlay 
Directory part 1 
Directory part 2 
BASIC overlay 
PUT/BET overlay 
0S-6S0 part 5 



♦«♦♦♦♦«♦*♦♦«♦♦«*♦♦♦♦ 
♦ DUBBELADRESSERING ♦ 
********************* 
FRANK dSm 

In net verleden heb ik de indruk gekregen dat «ien de dub- 
be lad resse ring op de uitbreidingsprint van de JUNIOR niet 
kon waarderen en daardoor is er naar diverse oplessinfen 
gezocht in relatie aet de VIA. 

Mijn vraag is nu waaro* er op de disk-controllerkaart geen 
•aatregelen getroffen voor dubbeladdressering. Mijn in- 
ziens is er dubbeladressering van 11900 t/t $i97F, m Mel 

hiero*: 

A15 t/« fll8 gaan via IC3 4 naar IC5,6 t.b.v. CS1,3. A7 
gaat via IC4 naar IC7 t.b.v. CS2. A1,0 gaan ook via IC4 
naar IC7 als flfll en AAO. 

De adreslijnen A6 t/t A2 blijven ongebruikt, Don't care, 
hetgeen dus dubbeladressenng innoudt. Een voorbeeld 

hiervan: 

A15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 

0 0 0 1 1 0 0 1 0 X X X X X 0/1 0/1 

1 III 



o.a. via ICS, 6 
t.b.v. CS1,3 

Hieruit blijkt dat: 



CS2 



i»if t ^tt Ml m 



A15-A12 = 1 HEX 
All-A 8 = 9 HEX 

A 7-A 4 = 0000 tot 0111 => 0-7 HEX 

A 3-A 0 = 0000 tot nil => 0-F HEX 

Achter elkaar opaeaiftviven Hordt dit: 
$1900 - $197F 

Diegenen die dit ook opgevallen is Horden verzocht nij 
daarvan via de redaktie in kennis te stellen, Mogelijk 
heeft ten tevens ook een opiossing ervoor, dan hoor ik dat 
graag. 



D0S65 Basic version 2.10 available now. 

For D0S65 users a fine Basic interpreter is available noM. 
It has been developed froa the well knoMn Microsoft K69 
Basic, which has been used for tany years by KIH and 
JUNIOR owners in our club. Those of you who are faiiliar 
with KB9 Basic will find aany changes and enhanceients in 
it. Along the aost important are: 

- Support of hexadeciaal nuabers. 

- Cursoraoveaent with CURSOR TO coeaand. 

- Support of noraal and inverse video output. 

- Support of all eight I/O devices with DEVICE coaaand. 

- Saving prograas in disk files both in binary and ascii 
foraat. 

- Loading prograas froa disk files both in binary and 
ascii foraat. (Now you can write your prograas Mith the 
full screen editor) 

- Executing Basic prograas directly froa DOS^ or D0S6S 
coaaand riles, without entering the Basic environtent. 

- Executing DOS ciMands and utilities Nithin the Usic 
environaent. 

- Input/Output redirect. 

- Sequential access data-files. 

- Randoa access data-files. 

- 'Intelligent' DNERR GOTO coaaand with associated error 
variables for proper error trapping. 



- RESUME coaaand to resuM progra* exeeution after error 

handling. 

- Advanced control stateaents for structured prograaaing! 

» IF ... THEN ... ELSE 
♦ WHILE ... ENDUHILE 
» REPEAT ... Will 

- Executing Basic coaHnds fUBvli^ng variables Mith 
EXECUTE coaaand. 

A coaprehensive aanual is available Mith aany exaaples on 
each subject. Since K69 Basic is a copyright of Microsoft, 
we can only supply the object code to those who have 
bought a legal Microsoft Basic, (send copy of invoice) The 
aanual is available to all aeabers of the '6502 KENNERS'. 
Plean centait Erain VisscheAfji, IMlltliM'll, Hierden. 

For those of you Mho are fed up with writing obscure PRINT 

stateaents for Elektors graphics card there is good news 

too. A graphical Basic is already in preparation. Draw 

your pictures with easy to use Basic coaaands like PLOT, 
mVE, COLOR etc. The graphical Basic wilt lino 
aany coaaercial available plotters. 



«« MTA-INPUT (EXEC) » 



Systee*: PPfU. aet Disk 
Suteur ! Frans Verberkt 

KilMensacker 12-iO 
im K6 NIJNE6EN 
TEL! 080 - 779555 



Oit prograaaa aaakt MTfl-regels aan ■iddels een EXEC-file. 
Na net intypen en starten van dit prograMa zai het aoge- 
lijk zijn vanaf regel 25000 DflTA-regels toe te voeaen. Ret 
geeft U tevens enig inzicht in het Herken tet EXEC-files. 
Het prograiia is traag, aaar goed. Na het intypen van eike 
regel zult U even toeten wachten, oadat deze regel toege- 
voegd Mordt. Het is natuurlijk 10061 ijk neer reqels in te 
de disk geactiveerd Hordt, aaar heeft als na- 
inm^Mlbij tussentijdse RESET de ingetoetste inforaatie 
yerloi!«t raakt. Het voordeel van dit prograM is, dat bij 
een I^T het prograaaa wer aestart kan Norden aet RUN 
zander dat er iets aan aankeert. U aoet Hel het progratM 
SflVEn als er na een nachtje slapen .... Uh eigen gegevens 
gelezen of aangevuld aneten mrden. 



tOOO REH MTA-INPUT (EXEC) i9sepfl6 
1010 GOSUB 2010: REH INIT 
1020 GOSUB 3010: REM PRINT DflTfl-REGELS 
1030 GOSUB &010: REM RESa INVOEREN 
1040 GOSUB 5010: REM HflflK TEXt-FEE 
1050 PRINT DI«;'EXEC';FIi 
1060 END 
2000 REM INIT 

2010 DI$ = CHR$(4): REM DOS coaaando 
2020 FI$ = "DflTfl": REM naaa van EXEC-file 
2030 Q0« = CHR<(34): REM ASCII voor QUOTE 
2040 OR = 25000: REM begin DATA-regels 

2050 ETURN 

3000 REM PRINT OATft-REGELS 
3010 HOME 
3020 RESTOI£ 
3030 DR = DR + 10 
3040 READ Dfl$ 

3050 IF Dfl* = "DATAEM)" THEN 3080 f 
3060 PRINT • ■;Dfl$ ^ 
3070 GOTO 3030 
3080 RETURN 

4000 REM REGEL INVOEREN 

4010 PRINT "Type VDlgende regeU" 

4020 INPUT IN$ 

4030 RETURN 

5000 REM MAflK TEXT-FILE 

5010 PRINT 

5020 PRINT DI$:"OPEN";FI$ 

5030 PRINT DI$; "DELETE" :FI$ 

5040 PRINT Dit: "OPEN" :Fl* 

5050 PRINT DI$:"HRITE*:FI$ 

5050 GOSUB 5510: REM MAAK EXECJILE 

5070 PRINT DI$;"CLOSE":FI$ 

5080 RETURN 

5500 REM MflflK EXECFILE 

5510 PRINT DR;"DflTfl";BW;IH$:QW 

5520 PRINT "RUN" 

5530 RETURN 

25000 REM DATA-REGELS 

29000 DflTfl •DflTAENO' 



BQEKINFQRMflTIE 

BouM zelf een expertsysteea in WSIC; tet prograaaa^-lis'- 
tinos voor APPLE K, Coawdore 64/128, GH BftSIC. IBM BASIC 
MSX BflSIC en 21 Soectrua. 

Chris Naylor, flcMeais Service 1986, 256 p., Hfl.45,==. 
ISBN 90 6233 117 t 

stttH Mer §i etalage van een boekhandel. Het oog valt 
fp of littdl f«^ri»kJwn dfior een btelstitel die ie in je on- 
dcrbmttsiziin al kende: Boum zilf im expertsysteen in 
Basic. LawEst op de bijeenkoast nerd zo'n expertsvgteea, 
inderdaad aet enige trots, getoond in FORTH op de OCT(^. 
Je had er al veel over fioren praten. Uie straks geen 
expertsysteea bezit, blijft achter. Is het 'het einde*^ in 
artificial intelligence? Zoiets wil je natuurlijk ook, 
antmord krijgen op alle vragen die je stelt. Dus, kopen 
dat boek. 

Thuisgekoaen lees je de oaslag van het boek. "Een expert- 
systeea is een coaputerprograaaa dat een bepaalde hoeveel- 
heid aenselijke 'kennis^ kan opneaen. De oebruiker kan dit 
prograaaa, de 'expert', vervolgens consulteren oa van die 
Kennis georuik te aaken. Nuisartsen kunnen het gebruiken 
voor het helpen stellen van een diagnose; cheaici kunnen 
het gebruiken big het afleiden van cneaische structuren en 
ingenieurs gebruiken zo'n systeea bij het zoeken naar olie 
en andere fossiele brandstoffen. Tot nu toe draaien derge- 
lijke prograaaa' s hoefdzakelijk op de grotere computers, 
marbij van heel bijzondere prograaaeertalen gebruik ge- 
tMkt wordt. Dit boek laat op een eenvoudige aanier zien 
Mat zo'n expertsysteea is en hoe je eraee oagaat. De pro- 
graaaa's die hierbij oebruikt worden zijn geNone BASIC- 
prograaaa's, die in eIke aicrocoaputer direct ingetikt 
Kunnen wrden. De lezer is in staat zich hierdoor een 
beeld van kunstaatige intelligentie te voraen en kan zelf 
ervaren hoe een expertsysteea werkt. ...". 
Chris Naylor heefi kans gezien een brug te slaan over de 
kloof tttssen de gevoelsaatige afstand tot het begrip 'ex- 
pertsysteea' - dat een verHijzing in zich draagt naar in- 
geNikKelde dingen die alleen door deskundigen kunnen nor- 
den begrepen - en de werkeliikheid van de betrekkelijke 
eenvottd van de geaiddelde aeoruiker van zakelijke en hob- 
bycoaputers. Op een ml heel speciaal huaoristische Hijze, 
Maarbij ae soas de tranen in de ogen schoten, ziet hij 
kans je steeds aeer te boeien en voor te bereiden op zijn 
heel serieuze verhandeling over Naarschijnlijkheden en 
kansen en het daarbij stap voor stap bouwen van het eigen 
systeea, rekening houdend net de noodzaak dat de lezer 
zelf variabelen zal aoeten vinden en in een aatrix vast- 
leggen. Het boek beooat niet dat de gegeven prograaaa' s 
uitsluitend Horden ingetvpt daar is het te duur voor, het 
is bedoeld oa de bouMer te laten begrijpen hoe het svsteea 
in elkaar zit oa vervolgens te laten ontdekken dat het 
feitelijk niet is gebaseerd op ingewikkeldheden, aaar op 
nuchter en logisch redeneren. Chris Naylor ontkoat er ech- 
ter niet aan Hiskundige foraules en begrippen te hanteren 
oa het theaa van zijn boek overeind te houden. Hier Hordt 
duidelijk dat geboeid worden door de Mijze van schrijven 
niet voldoende is. Een redelijke aate van inzicht in His- 
kunde is eveneens vereist. Het aooie Nerk van Chris Naylor 
lijkt ae dan ook eerder geschikt voor gevorderden in 
Basic, niet voor beginners. 
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if RTTY TX/RX VOOR OE ACORN ATOM VAN PA3ELB »« 
ttitiiiiniwtiiiiiitMit i W i iiiiiti ii wiitf i itit^^^ 

Dsor: F.ank Verooossen (Pfl3BiJ), NMtoPtatf 
Tel.: 04754 - 1972 . ^ 

. - ' , . . 

In leidinq 

Pr zijn reeds enkele prograMa's verschenen oi RTTY signa- 
ler) te ontvangen en/of te verzenden, die overigens bij ve- 
le zend- en luisteraiateurs tet succes in georuik zijn. 
Nadat ik aan het experiienteren was geslagen mt de VIA 
besloot ik ot zelf een (eenvoudig) RiTY-prograMaatje te 
■aken. Otdat ik echter voortdurend Hijzigingen en verbete- 
ringen aanbracht, is dit korte prograMa al snel uitge- 
groeid tot een groter prograMa, Maar ik togeligkheden neb 
ingebouHd naar nijn eigen voorkeur, die ik helaas tiste 
bij sonaigen andere prograaaa's. Na herhaaldelijke verzoe- 
ken van diverse personen heb ik dan ook besloten dit 
prograaaa aan iedereen beschikbaar te stellen. Braag zou 
ik zien dat dit prograaaa anderen aanzet oa zelf aan de 
slag te gaan, want ook dit prograaaa bestaat aaar uit 
taaelijk eenvoudige recht-toe-recnt-aan instructies, wat 
toch aaar weer beNijst dat leuke prograiM's niet echt 
aoeilijk aoeten zijn. Dan volgl m'm^000i^yf'^ M:. 
gebruik van het prograaaa. 

Hardware 

Voor Fit ontvangen van RTTY signalen is een telexdecoder 
benodigd oa de aark- en spacefrequenties oa te zetten in 
een '1" of '0', zodat deze signalen eenvoudia door de 
coaputer te decoderen zijn. Dergelijke schakelingen zijn 
te vinden in o.a. : 

Acorn NieuHS saaenvatting 19fi2 biz. 96 
Elektuur juli/augustus 1962 biz. S-U . 
Elektuur juni 1983 biz. 6-5fl 

Deze interface wordt aangesloten op poort c, bit 3 van de 
8255 (aark="r, 5pace='0"), Deze aansluiting is de aeest 
rechtse als aen van achter de coaputer naar de DIN-pIug 
kijkt (pen 7). Ik heb voor deze aansluiting gekozen oa 
niet een grote 64-palige connector te hoeven gebruiken 
voor de aansluiting van de decoder. DesgeMenst kunt u het 
prograaaa ttijzigen voorgebruik aet de VlA-poort. 
Voor het zenden van RTTY Mordt een AFSK-signaal opgcMCkt 
op PB7 van de VIA. Als u nu een weerstand van 4.7 kOha 
tussen PB7 en de cassetterecorder-uitgang opneeat, kunt u 
voor zenden en ontvangen gebruik aaken van slechts 1 
zeven-polige DIN-plug, en u kunt de signalen ook nog^op de 
recorder opneaen voor experiaenten. Als u de NJCuS kan 
gebruiken heeft u deze weerstand reeds geaonteerd. Na vcr- 
ZHakking (bij eij een spanningsdeler oestaande uit een 
Heerstand van 10 kOha en een van 100 Oha) en event uetl 
filtering kan aen het AFSK-fignul op di ingtng vm Jt 
transceiver aanbieden. 

Oa de zendontvanger autoaatisch op zenden te schakelen als 
u gaat zenden is de aogelijkheid ingebouNd oa de puih-to- 
talk ingang van un set aan te sluiten op PB6 aet tVSlM- 
schakeling van een transistor (TX^'l', RX-'O"). 

So ftware 

Bifwugiiigebruik: 

«2900-«5fFF prograaaa in BASIC en asseabler 
t2800-t28FF floating-point variabelen 
t600O-l7FFF werkbuffer 
t8200-«9FFF tekstbuffer 

t80 -*90 zero-page (let dus op aet soaaige EPROM's op 

Na RUN wordt het prograaaa eerst geasseableerd, inti'ssen 
ziet u de volgendte tekst: 



BEDIENIN6I 

t = TX (=zenden) 

r = RX (=ontvangen) 

c s CU ID. (=aorse-identificatie) 

b = BUFFER (op voorhand intypen) 

■ s KNU (hier koit u de eertte keer vanzcif in) 

Nadat het prograaaa klaar is eit astMblirtn, koat u 
vanzelf in het aenu terecht. Hitr kunt u de diveru wijzi- 
gingen aanbrengen, en wel door op di getnnitt cijfirtotts 
te drukken. De ntcuwe (standaard-)Maardi koat dm vanzilf 
op de plaats van de oudc waarde. Oa ervoor te zorgin dat 
alle output naar het scheri snil gmoig vtrloopt Is nn 
VDU-routinc in het prograaaa opgsnoMn. Hierondir volgen 
de waarden waarop u alles kunt inttillen, wairbij de Mur- 
den die bij het de Hrste kNr binrwnkoaen VM (Mt Mm 
zijn ingesteld hier als ecrste staan veraildi 

1 BAUDRATE 45.45/50/57/75/100/110 Baud 

2 SHIFT 170/300/425/850/1000/85 Hertz 

3 LAA6STE FREQUENTIE i27S^!iil^f : - .. . 

4 POLARITEIT MLSH/NHSL ' 

(aark laag, space hoog/Hrk hoog, spKt lug) 

5 BLANK TEKBI UlT/AAN 

6 AUTO CR/LF UIT/AAN . . 

7 UNSHIFT ON SPACE UIT/AAN 

8 STOPBIT 1.5/1 bit 

9 LEESTEKENS INT/UU/MIL 
(intirnatienMl/yntirn Unloii/ftUtary) 

t = NAAR TX (zenden) 

r = NAAR RX (ontvangen) 

t» - MIJZI6 BUFFER (ttkstbttffir van 7,5 kB) 

Als u het prograaaa allNn voor ontvangen oibruikt Is voor 
u alleen de baudrate, poliritcit, unshirt on space en 
leestekens van belang. Tijdens ontvangen wordt het bill- 
karakter afgedrukt als b, Nn niet bntaand karaktcr uit 
de set leestekens als e. Ullt u dt tekst tevens op dt 
printer zetten (ook aogelijk tijdens zindin) dan hotrt u 
slechts de printer aan te zettin en verder niits. Hit 
prograaaa controlnrt naielljk iilf of dt printer Ml of 
niet aanstaat, en zit zo ja di ttkit op papier. 
Tijdens zenden is er nn werkbuffer die er voor zorgt dat 



u gerust zo'n 8 kB tekst sncller typtn aag dan de coaputer 
uitzendt, deze buffer kunt u overigens ook al biglnncn vol 
te typen tijdens ontvangen. Als u dan overscnakilt op 
zenden wordt de tekst hisrin direkt uitgizonden. Verder is 
er Nn tekstbuffer voor het op voorhand intypen van bi- 
richten of standaardteksten. Deze buffer kunt u vanult het 
Mnu kiezen oa er tekst in op te ilaan en is «ax. 7,S kB 
lang. Als u dan tijdens net zenden b intypt wordt de 
tekstbuffer gecopilerd in de werkbuffer en uitgezondtn. 
Verder is er Nn call-gever aanwezig waarin u de roepnaaa 
van uw aatteuntation Hunt plaatMn. Oa deze te ■ctivirtn 
typt u c, de roepnaaa wordt dan in aorsi uitgezondtn in 
wel Mt de aark- in ipacitoon dii ook voor RTTY gtbrulkt 
wordt. Virdtr is ir nog Nn handlghiidjt Ingibouwd on 
fouten tijden het typen te kunnen verbeteren, want de 
Baudotcode kent gNn code oa 1 tikin ttrug ti gain. All u 
naMlijk imllir typt dm di coiputir itndt iiunt u nog 
voor hit uitzindin van dt ingitypti tikit di fout vtrbitt- 
ren Mt DELETE. Niet voorkoNndi tikint wordtn tljdini 
uitzindin gmegNrd. Als u di auto CR/LF aanzit wordt na 
64 tikins autoNtisch carriagi nturn in liMfNd gigivin, 
voor hit gival dt ontvangnzijdi gebruik aukt van ain 
telex-aachiM (dli kunwn m tet iindi vn di n^l ntit 
verder). 
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Indicators 

Tijdens ontvangen Nordt rechtsonder een r gezet (van RX), 
tiidens zenden een t (van TX). Links hiervan Nisselt een 
Hit streepje in het ritae van de tark- en spacetoon van 
plaats (otnoogsMrk, o«laag=space), dit werkt tijdens zen- 
im wn sNtviMlMf. 



HI 



Higingen 

kunt in de listing de volgende dingen naar eigen voor- 
keur aanpassen: 

$K = string waarin de roepnaaa van uh station voor de 
•orseidentificatie, mx. 2K karaktcrs, dits Mwr dan 
genoeg. 

V = snelheid van de norsetekens, 10-30 Hoorden per 
ainuut, hier 20 want dit is nog net niet te snel 
volgens de lachtigingsvoorHaarden van de PTT. 

C = clockfrequentie van uh ATOM, nortaal 1 MHz, ik heb 
echter het prograaM nog Rift gctesi op andere 
clockfrequenties. 

Ook de beginHaarden van het »em kunt u Hijzigm Maarbij 

de volgende variabelen van belang zijn: 

W = baud rate in Baud 

5 = frequent ieshift in Hertz 

F = frequent ie van de laagste toon in Hertz 
I = polariteit 0=MLSH, 8=WSL 

6 = blank teken l=uit, 0=aan 
D = auto CR/LF l=uit, 0=aan 

fl = unshift on space 3=uit, 0=aan 
E = stopbit 1=1.5 bit, 0-1 bit 
N > iNstekens 1>INT, 2-HU, 

Hanneer u de interface aan Hilt sluiten op PBO van dt VIA 
•Oft tt de volgende nijzigingen aanbrengen! 
Hijzigen : regel 40 RER TTL IN P60 VAN 6522 

regel 1000 de 8 in 1 veranderen 

regel 1040 de 6 in 1 veranderm 

regel 2580 LDAiB800;ANDei 

regel 2750 LDAtB800;ANDei 
Heglaten : regel 2410, 2420. 3430. 3440 
toevsegen: ragel 2175 iJMIMft^MB003 

Verdere gegevens over RTTY (die ik ook heb gfbruikt voor 
dit prograMa) kunt u vinden in: 
Elektuur juni 1983 biz. 6-37 
Vadeaecua VERON biz. 279 
(Redaktie! Nog enkele referenties : 
-RTTY aet de JUNIOR; Telexberichten via korte golf op uh 
schera. DE 6502 KEM€R 6(1982)23(okt)25-32 
-RTTY ontvangst. HCCN 6 (1983) 2 (apr) 21-23 
-RTTY-dBcodfr. Elektuur 23(1983)E(jttn)58.) 



Laat het eens neten 

nijzigingen aanbrengt, 
lets aan. 

Veel succes gewenst. 



voor het geval u interessante 
aisschien hebben aeer aensen er 



N.B. Het volgende is alleen van belang voor de 
'freaks' die Nijzigingen Mi Hen aanbrengHb 



echte 



Z ero-page a dre ssen 



SauHotcode bij TX en RX. 
aorse: Morsecode. 
81 AsciiHaarde af te drukken karakter. 
62 RTTY: 0=lettfrs, Isfigures (voor TX ffrst 3^og 
niks). 

83 RTTY: 2e Baudotcode na (un)shift of CR/LF. 

84 Key-scan routine asciiHaarde vorige ingedrukte toets. 

85 Key-scan routine Oi^gBen toets ingedrukf, l<wl toets 
ingedrukt. 



86 bewaaradres voor Y, index van coaputer in buffer. 

87 bettaaradres voor Y, index van keyboard in buffer. 

88 RTTY: aantal tekens na laatste CR/LF. 

89 aorse: beHaaradres voor A, llM^ MriiiiM^ 1i 0% 
8A RHY: teller bij RX 

aorse: bewaaradres voor Y, index karaktemo* iilli 

benaaradres voor Y bii de buffer. 

8B LSB tekstbuffer altijd 0. 

8C MSB tekstbuffer 82-9F. 

80 LSB coaputer in nerkbuffer altijd 0. 

8E MSB coaputer in nerkbuffer 60-7F. 

8F LSB keyboard in nerkbuffer altiid 0. 

90 MSB keyboard in nerkbuffer 60-7P. 

Variabelen 

11" ufisfiiTt on space 0=on 3»off 
^B Baudrate in Baud. 

B tellerstand lengte in bit. afh. van 16. 
C clockfrequentie, noraaal 1 MHz. 
D auto CR/LF na 64 tekens 0=on l=off. 
E lengte stopDit 0=1 bit 1=1.5 bit. 
F frequent ie laagste toon in Hertz. 
B blankteken 0=on l=off. 
H tellerstand aarkfrequentie. 
L tellerstand spacefrequentie. 
I polariteit (Nilsh B>ihsl (bij laatste mrdt H fit I 
vemisseld). 

tellerstand aorse-snelheid, lengte 1/2 (Milt 
stringadrei call voor cn-identiricatie. - 
leestekens l=int 2'hu 3*ail. 
asseableradres tiidens asseableren. 
beginadres asseablcr. 
0-z5 baudottabel 26-83 aorutabel. 
frequent ieshift tutten aark in tpact in Htrtl. 



stringadrei figurei int, nu of ail. 
aorsesnelhcid 0-30 npa, noraaal 20. 
duaay voor inlezen tekstbuffer B200-9FFF. 
duaay patino. aiseabler en H-L verMilMlingi 
duaay atciitoetslfnroutina ainu. 



Arrays 

!r~initiaIiMiii via, nwUfl vdu, printtrrflul^ ilMf 

flags. 
TT zendprograaaa. 
RR ontvangstprograaaa. 
ZZ MMiiintfflbiAtf en tafifemutinf. 

DE ASSEMBLY SOURCE-LISTING BEHORENDE TOT Dlt'Mm WiSI 
IN EEN VOLGENDE EDITIE 6EPUBLICEERD. 
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** fl SIMPLE EPRCW DISC FOR SHX COMPUTERS « 

CIRCUIT OF THE EPROM DISC 



The advent of 32K and 
EPROMs has ude it easy to 



64K 
con- 
struct an EPROM 'disc' of use- 
ful capacity. It is ideal for 
storing languages, operatina 
syste*s and assemblers especial 
ly in cassette based systems. I 
built sine so that I could 
quickly load Hicro-flOE and 
tproft prograiter software into 
•y expanded JUNIOR. The design 
has been kept as simple as 
possible but could be further 
developed, perhapi iflto a car- 
tridge systea. 

HARDUflRE DESCRIPTION 

As can be seen froa the circuit 
diagraa the address lines of 
the 'disc' EPROM are set up by 
a 6821 PIA. This occupies four 
out of the eight aeaory loca- 
tions occupied by the card. The 
EPROM can be read at the 
others. If the systea address 
lines AO and perhaps Al are 
connected to the EPRlM directly 
(preferably through buffers) 
then consecutive addresses can 
be read, but I have not done 
this. Tne address decoder is 
siailar to that of Elektor's 
VDU card. The 74W:T540/74LS540 
inverting buffers are functio- 
nally identical to 74W:T240/ 
74LS240 but have a pin-out aore 
convenient for hoae-aade PCBs. 
To aake a eurocard sized PCD 
for the Elekorbus without pho- 
toqrapic techniques is not too 
difficult provided it is double 
-sided. The tracks to the 'a' 
roN of the DIN14162 connector 
are layed and soldered on the 
coaponent side allowing thea to 
be taken through the 'c' row 
which has no pads on this side. 
There are varieties of connector in 
which this is iapossible because soldering froa the top is 
prevented by a plastic foot. Tracks can be quite thick 
C^laa) and through-plated holes are not needed. Connec- 
tions to the underside are aade with special pins at 
appropriate points. For laying tracks you can use 
transfers or artwork tapes layed directly on the copper. 
On ay card it is possible to replace the EPROM witnout 
removing the card froa the busboard as it is held in a 
zero insertion force socket utadi is MttRtKl m m aluti- 
niua bracket at the end. 




ICl=fc821 
IC2=27256/27512 
I C3=74HCT245/74LS24E 
IC4=74LS10 
IC5=74LS133 
Nl-N16= 
2x 74HCT540/74LSS46 



SOFTWWE DESCRIPTION 

The source listing is of a 'loader' which copies filii to 
RAM. I have blown this into the JUNIOR PMV ROM at iddrtti 
$1750. The first page of the EPROM is • directory which 
holds up to 28 entriN. Etch entry consists of • htx fili- 
nuaber, EPROM address, load iddrMs, length and in execute 
address, nine bytes m total. Unused entries are left un- 
prograaaed as tFF is an illegal filenuabsr. The loader has 
been divided into subroutines to allow calling froa within 
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prograas. I have stored Nicro-ADE under the filenaw 'AO'. 
It IB loaded fm the M ■oniter as follDNs: 

1750 (space) 29 R Run loader 

?AO(CR) FilenaK 
READY 
JUNIOR 

R Run execute address 

DateCDWMYY) «icro-flDE cold start 

It loads alust instantly. 



OOEA 
OOEB 
OOEC 
OOED 
OOEE 
OOEF 



105F 
1334 
12AE 
13A2 
11E8 
11D6 



i9oa 

1908 
1909 
190fl 
190B 
190C 



OOFA 



2 
3 
4 

5 
6 
7 
8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



mm DISC SOFTWRE 

This version intended for expanded JUNIOR. 
It aay be bloHn into top of PMV or PME roe. 

DIRECTORY FORHAT:- 



byte 0 
byte 1 
byte " 
byte 
byte 
byte 
byte 
byte 



file nuaber 
epm addrtn 



load addrets 
■ ■ 



byte 8 



Ion 

high 

lOH 

high 

lOH 

high 

exMtttt aMrtss Iom 

• high 



lerigth 



Up to 28 files are allotted. The directory fills the 
firtt page of the 'disc* tprop^ (2^91^12) 



HONITM ROUTINES 



iabjun 

prcha 

reccha 

ipb 

crlf 

■essy 



equ 
equ 
equ 
equ 
equ 
equ 



♦105^ 
$1334 
$12AE 
$13A2 
»11E8 
$11D6 



Mart start aonitor 
print ascii character 
keyboard input 
key input a bvte 
carriage ret line feed 
print I Mtiagi 



CARD ADDRESSES 



Note - page tl9 on an expanded JUNIOR can be freed by 
reconnect ina pin 23 of ICl (6522) to A66. In av 
systea the b845 on the VDU card is addressed at 
$1900 and the RTC card at 11920. 



8 addresses are required, 
card equ 11908 



dra 
era 
drb 
crb 



equ 
equ 
equ 
equ 



epron equ 



card+00 
card+01 
card+02 
card+03 



ZERO PAGE tmEsm 



org 

epadl res 
epadh res 
nenadl res 
■eaadh res 
leni res 
lenh res 
org 



$EA 

1 
1 
1 
1 
1 
1 

»FA 



convmitnt i/o space 
6821 registers 

aMiSK ef eproe 

points to "disc" byte 
points to RAM byte 
length of file 



APPLE COMPUTER INC. VEmmM WtiS 
IN FISCAAL JflAR 1986. 

Cupertino/Zeist. 15 oktober 1986. 
De netto Hinst en di Ninst per aan- 
deel van Apple Coaputer Inc. zi in in 
het fiscaal jaar 1986, dat loopt van 
oktober t/a septeaber, aeer dan ver- 
dubbeld. In het afgelopen jaar stng 
de Hinst aet 151 procent tot 154 
ailjoen US dollar, vergeleken aet 
61.2 ailjoen dollar in het jaar er- 
voor. De Minst per aandeel steeg aet 
141 procent tot 2.39 US dollar verge- 
leken aet 0.99 US dollar per aandeel 
in het fiscale jaar 1985. Do oazet in 
het afgelopen jaar bedroeg 1,902 
ailjard US dollar. In 1985 Has dit 
1.918 ailjard U6 dollar. Df oatet in 
het vierde fiscale kMartail bedroeg 
510.8 ailjoen US dollar, eon stijging 
van 25 procent t.o.v. hot jaar orvoor 
tocn do oazet 409.7 ailjoen dollar 
bedroeg. De Minst in hot viordo kMar- 
taal stMg aet 47 procent tot 32.9 
ailjoen US dollar ofMOl 0.51 US dol- 
lar per aandNl vorgoloken eot 22. 4 
ailjoen ofMol 0.36 Ui dollar per 
aandnl in dozolfdo poriodo van het 
jaar orvoor. Do bruto aargo uitge- 
drukt in percontagsi van do oaift 
bedroeg in hot viordo kMortaal 53.3 
hotgoon over hot goholo jaar gonoaon 
neorkoat op 53. 1 procent. Do ovoroon- 
koastige percentages van hot jaar 
ervoor bcdroegon respect ievelijk 45.9 
on 41.7. In Noderland is Apple Coapu- 
ter goarooid aot eon porcontago van 
naar liefst 42 procent in vorgolij- 
king aet het fiscale jaar 1985. 

/\ROU(]D THE ® 
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OOFft 
OOFB 



1750 

1750 20 E811 

1753 fl9 3F 

1755 20 3413 

1758 20 0213 

175B 20 6fll7 

17K flO 4C 

1760 90 02 

1762 no 46 

1764 20 D611 



176fl C9 FF 
175C FO 31 

mm 



176F 
1771 
1773 
1775 
1778 
177B 
177E 
1781 
1784 



fl9 04 
ftO FF 
fl2 00 
8E 0919 
8E 0B19 
8C 0819 
8C 0fll9 
8D 0919 
8D 0B19 



1787 8E 0819 
lUft 8E (M19 

178D 68 
178E AS 



178F CC 0C19 

1792 FO OD 

1794 fl9 09 

1796 18 

1797 6D 0819 

179F 38 

17M 60 



17m 20 D817 

17fl4 EO 06 

17P6 DO F9 

1706 02 10 

1700 20 D817 

17ftD 20 D817 



17B0 05 EO 
17B2 60 0819 
17B5R5EB 



58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

62 
.83 
'■«-• 

85 

86 

87 

88 

69 

90 

91 

92 

93 

94 

95 

96 

97 

38 

99 
100 
101 
102 
103 
IM 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
120 
121 
122 
123 
124 
125 
126 

m 



point 1 res 1 
pointh res 1 
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JS! 

LDO 

JSR 

JSR 

JSR 

LDY 

BCC 

LDY 

JSR 



*1750 

crlf 

#'? 

prcha 

ipb 

load 

t«4C 

l.f 

t$A6 

■essy 

labjuM 



CR + LF 
print "?• 

filenuaber in 0 reg 
load the file 
"REODV aessage 
branch if loaded OK 
'mv aessage 
print aessage 
Nam stiM Mi%e^ 



W####W|i|^||[J||||^TIIiK^HHHHHHHHH| 

Separaii sM^Wtims tere te allow calling by progrMs 

illegal iii|1f? 
save enti^ 



CNP i»FF 
BEQ err 



l%lise PIfl 
, LDO 

LDY 

LDX 

STX 
.. STX 
•I STY 

STY 

STO 

STO 

■■ STX 

HI; 
TOY 



i$04 

«FF 

ttoo 

era 
crb 
dra 
drb 
era 
erb 

dra 
drb 



aceess direction reg fl 
access direction reg B 
0 is outputs 
B is outputs 
aceess data reg 0 
access data reg B 

'disc' address = $0000 



frtritiNFlHttry 



:Search for correct directory entry 



CPY 


eproa 


m 


4.f 


LOA 


1109 


ac 




ADC 


dra 


STA 


dra 


BCC 


2.t> 


SEC 




RTS 





is this it? 
branch if yes 



branch if Mre entriH 
set cariy if not found 



;get six paraaeter bytes froa directory 



and copy to ROM 
JSR 



CPX 
BNE 

LDX 
JSR 
JSR 



et-paraa 
«$06 
4.b 

#$10 

get-paraa 
get-paraa 



■ore? 

branch if yes 



jtransfer 'disc" start address to PIO 

LDO epadl Ion byte 

STO dra 

UM ^h High byte 



Tips and tricks for the 
EC6SK/ Junior. 



By: 



Coen Boltjes 
Nh. Plantage 9 
2611 KM Delft. 



1) It's possible that while the 
coaputer don't acces the VDU- 
Raa, some video-noise is visi- 
ble on the screen. This is 
caused by the fact that between 
valid address-lines the VDU-Raa 
address is offered to N37 of 
the VDU-card. This results in 
resetting the flip-flops FFl- 
FF4, which causes the video- 
noise. Connecting pen 1 of N37 
with 02, instead of logic one, 
Nill solve this problea. 

2) There is a lot of aisunder- 
standing about the track to 
track access time. If you want 
to speed up this time, don't 
change location $2605, This 
ftust be $D4. Loacation $2603 
aust contain the time in mili- 
seconds. Standard is this $28, 
but in a lot of configurations 
lower values will work. 

3) If you want to run your 
computer on 2 MC, a parameter 
in a 10 milisecond loop must oe 
changed. $267B contains this 
parameter, which is $31 or $62 
for 1 MC and 2 MC respectively. 
To avoid manual adjusting of 
this parameter if you use ano- 
ther speed than usual a little 
routine is developed which can 
be referred in the bootroutine. 

4) If you want to use a boot- 
routine which is too large to 
fit in $2200-$2300 you can 
temporary use the space $2E79- 
$3179. Because this area is 
used for the directory and for 
the page 0 and 1 swap the 
routines in this area will be 
available until a DIR comaand 
or a SM^ is e)»c«tHi. 

5) If you use the CPU-card with 
a 65C02, you don't need special 
software to program EPROM's 
with the ElekTuur prograamer 
(jan 1982). The RDY line will 
hold the processor during the 
prograa pulse, so you can use 
the WWE routine of the aonitor. 
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** WM6S OP JUNIOR •< 
mmtiium w uB H iiin 



Door: Erik v,d. Broek, Nederland. 



Uaaroa een Octopus gebouwd, als je al een JUNIOR hebt? Om 
M0N65 te iapliMntiren? Dan bouH je JUNIOR toch om! En al 
•ijn loftware din? Din bouw jt toch een uitschakelbari, 
OMSchakelbare overtchakeling! Kortoa, een JUNIOR in 
native-mode met een 0ctopus-n0N65-simulationaode. 
De schakeling bevat een vier-standen-schakelaar met dc 
volqende funkties: 

1) JUNIOR met afgekoppelde bus, voor het foutzoeken in 
uitbreidingen. 

2) JLWIOR met bus. Reset vektor en standaard monitor wor- 
den opgezocht, echter in die ouwe 2706, waarvoor de bo- 
venste 8 K (op bus zit daar HON) op de baiit- en inter- 
face kaart wordt geaddretntrd. CMNtti m viiiM-rott- 
tines blijven bruikbaar. 



3) H0N65-halfsiaulatie : 

- Een nieuwe VIA voor keyboard op CI 10 - CIFF 

- 2 K RflM op C800 - CFFF 

- VDU RflM op DOOO - D7FF 

- M0N65 Eprom uiteraard op EOOO - FFFF 

- Toeters en bellen naar eigen inzicht te bevestigen. 
Verschil met de Octopus M0N&5: 

- De flCIfl, nog een Vlfl (de 'Centronics') en de pieper. 
Dit is door ceniedir zelf in tt vulltn, dunkt me. 

- Oi onderita 8 K blijft op itindaard geadrnfatrd. 
Softwiri die op 0600 - IFFF RflM verwicht, gaat dui dt 
lift in, maar JUNIOR programma'i blijven bruikbaar, 

4) Idem 3), doch ook ondertti 8 K wordt op di but gitdrei- 
Htrd. Hiir htbban m di amt rMlittiichi 0CTHON65 
siMilatifl. • r 

De schakeling t 2 nicuHt poortjes, ein 6522 in iin illi « 
adrct-dekodiring. En niit ti virgitini di schikiliir. 



Di RST draidbrug in D - EX virbinding vtrNijdirin. 
Adris-dikodiringin voir dt PffiN, i§ VIA M M 
sprikin voor zich. 
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THE JUNIOR COMPUTER REVISITED 

I - THE COMPLETE ADDRESS DECODIHG 

Did you built the Junior Computer before the SAMSON/OCTOPUS project ap- 
peared? Are you reluctant to leave great part of the Junior, to go to the archi- 
tecturaly new SAMSON systeuf flr« ym one of those wtto loves tft plcfe up your 
dering iron, bome ICs, resistors and other hardware stuff, and to ASSEItBLEt attl: 
to test, and to debug, as auch as you program in software? 
• Tite t^it'is for you. 

We can improve our old J.C. in ntany ways, up to an extent where it turns 
far more perfect (in terms of memory) than the latter elektor coaputing project. 

One of the first sl#pi is to resolve one o* tfct greatest drawbacks of 
the J.C: the memory organization. The Junior was born with 1024 bytes of RAM in 
the lowest address space, and other 1024 bytes of EPROM in the *1C00-1FFF range; 
wore, the basic input/output device^ the &532 PIA-RAM-TIHER, was laid in the ad- 
dress range of ■I1A00-1BFF, occupying that way 512 places, where 128+32 were more 
than enough. Then the interface board came, with RAM growing from $0400 to 07FF, 
CPROMs at $0800-t?FF, and a nen I/O device at $ie0a-19FF, this iiifl^ iffpther 
ioss! 512 bytes where only 16 needed. 

The bus board opened the frontiers to an endless growing, with marks as 
the dynamic RAM card, the VSU ftQaird, and the ftuppy controller card. And it His 
so, that in Nov. 82 we were told how to change the memory scheme, turning its or- 
ganization upside-down, in a way that we got RAM from $0000 to BFFF, but with 
the I*; tipper tpitc* dissrfanized as be+ore. To cosiplicate matters further, the 
PROM 82S23, IC 17 on the interface card, was surveying what could be modified or 
not, in the way that it forbides writing on certain locations or reading from o- 
^ ther sources. And, of course, adapting the disk software 'fVoiii Ohio Scientific, 
brought further losses: the disk "controllers", located on $C000-C0FF could be 
satisfied with only 6 locations! In the same way, the VDU board lost 6 addresses 
on the CRTC decoding, leaving aside other 2K in the wholf project. 

Soon I realized that, and found a way to gain th« undecoded addresses in 
the $C000 DFFF (disk + video) space. Although this now went beyond the scope 
of this article, may be some users will benefit from the idea, so it follows. I' 
ve used for some time the 8K RAM + EPROM card (2) with some utility programs by 
means of the addition of only one IC. A 4-input and gate (fig.l) enables the ca- 
rd in the locations unused by the VDU or the FLOPPY cards; two lines must run 
to this gate: one ( JCOBS-^CaFF ) is already wired in the DISK board from pin 6 of 
IC2 (74LS10) to pin 6c of the bus connector (ref.4, fig. 9); the other (ID3a0-> 
D807) , in the VDU board, can be wired by an insulated jump from pin 9 of IC9 (74 
S133) to pin 6a of the bus (ref.6, fig. 4). The opposite is done in the EPROM ca- 
rd from these bus-connector pins to the inputs of the new gate as Uustrated he- 
' r«!"' fV'ei'f fiittfe' dfti' of ''these signals is low, the card cannot be read; this memory 
board shall work only with EPROM (3!-;2716) and addressed in the base address of 
*C000-DFFF. And the result is that IC100-C7FF (EPROM IC25) , *C800-CFFF (IC26) 
and *D808-DFFF (IC28) are fr«« to mse far utilttiJS in EPROM, totalizing a good 
(sK space. 

But if you really want to clean the RAM up to $DFFF, the solutions fol- 
low. See fig. 2 for the memory map we're going to get. 

A - MODIFICATIONS ON THE MAIN BOARD (ref.l, fig. 2); fifiS. 

In the primitive J.C. board reside the CPU, a 2703 EPROM, IK byte of RAM 
and the 4532 PIA. Due to construction implications, I left there the 6532 and 
the CPU; the RAM ($E000-E3FF) and the EPROM will be addressed in other place. 

The new (2732) system EPROM will be on the interface card. I choose so, 
because during the development period, and even now, when I reasseable the MONI- 
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TOR, erasing and burning another EPROM, I do not have to detach the interface 
*ro« the main board; it's just a natter of turning them upside-down tib eltngt 
the EPROMs. 

The RAM chips (IC4 and 5) and R16 must jump out of their sockets, and 
the ICS re-addressed; this is done with ttte addition of a 74LS8S (plus a 74 

S3i if possible) in a little PC-B. 

The PIA has 128 bytes of RAM, two I/Q ports, timers, flags and edge de- 
tectori. Elwfetii' srittefM^' aJl'tfcr feflitw^^^ flfttt f 1#FF, b*it ctn le- 
arn from a manufacturer's Shfeit Mom to put them in 32 bytes (7). It's enough to 
decode the |:XX80-XX9F spact tft*f the 128 bytes of RAM (XX00-XX7F). A 4-bit com- 
parator, the 7#LS8f iii 11 6* pi^set' to' *# in one bf Its s«ts of inputs, trhile the 
other set will read the four address lines A4 through A7. Then, the three outpu- 
ts will flag the addresses *XX0X i XX9X (A<B, pin 5), the 16 addresses $XXAX 
{A=B, pin 6) and the f»waift4fv'^ MWi XXFX addresses (A>B, pin 7). 

Using an (available) signal of lEFXX, the P IA is laid down on the addres- 
ses $EF00-EF9F, as shown in the drawing. The lEFXX line is generated with an 8- 
Iwptit' ¥4*ntf gate 74S38, which T've Itjcir'terf oh the disk boari^ lor conveniWhce; 
but I agree that this gate would better be joint with the 74LB85 an the main 
board, so that the system could work without the disk card, for debugging purpo- 
ses. The new aidresses of tife 1*tft niVl bei ' 
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This is the first part of the irrpat/otrtput pafe IMPMrWffi' which will 
contain, besides the PIA, the CRTC, the disk PIA and ACIA, tfcff f ii ff»fli-r0« i c s,l , 
the real-time-clock,... and other user-defined addresses. ^ ' 

The PIA re-add>^es«inf can not to* tfene iwtfependently 64 tM^^fher laodili- 
cations because the new fEF00-EF9F space is enabled in the interface/bus by the 
FROM + bus buffers, and if they are enabled, something will be buffered from 
t}ti«» to the Witn bomrtl, surely diff«rewt #ro« nMt ^ftoteli ie read fro« the PIA. 



t - lllIirFIC#Tf0»rS OM THE INTERFACE CARB ^ref.S, ftg.irj fig. 4 

This will be one of the more heavily modified boards. 

The bus-buffers must "close" the traffic t# ffftg aA#e»i r«i*p, IC5 

will turn into a 4K EPROM, IC4 in a 2K CMOS RAH without owe page, the VIA re-ad- 
dressed, and a new IC added. , 

Following fig. 4, let us begin with ICl, 6522 VIAt previously lot a ted at 
*F800-F9FF if 180B- 19FF) it shall fall into the tiny $EFAa-EFAF 16 addresses that 
it deserves. Line fEFXX, already mentioned, will substitute K6 on the CS2. And 

frtf* the 'ISiS (main board) will "be linMi to CSi instead of the old VIA li- 
ne (the output of gate N35). 

Second, the bus buffers problem: 

The traffic of information between the nairi board and the interface card 

(the bus board is connected to the interface, after the bus buffers), is control- 
led by the PROM IC17. This PROM, 82S23, was programmed in a way that the bus buf- 
fers 74LS243 ICil and 12, are disabled in 2 ranges, *E00«-E3FF (or *at0il-l3FF> 
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and $Ffta0-FFFF ($1A00-1FFF) corresponding respectively to the li MM, ant tft tM 
PIA + EPROM, all in the main boardj so that RO read no nffite is pirBitted on or 
frit the interface card and bus. 

With the proposed location of the PIA (only) in the main board, it will 
bt en®»ti to limit the lifflitili.6n5 to the range $EF00-EF9F, of the sole device 
addressee above the interface card's buffers. All the remaining space can be ad- 
dressed as required. So, the PROM is extracted and "substituted" by a 'LS1S7 se- 
lector. Its Y output is made low in the PIA address space, so that the buffers 
permit writing to the interface and the bus (no haru if no other device is loca- 
ted there in the same addresses) but no byte is read ffot tltre. 

A (new, left unused from the memory reorganization for the f 1 oppy -di sk 
interfacs) (ref.5, fig.l) 3-jnput nor gate (N33 or 34), will add signals $EFXX, 
ftKi (br fXAX) and ft>f (or XX%X XKFt). What »eif»s that tht Sti input of the 'LS 
157 will only be logic high when neither of the 3 nor-inputs is high: what means 
fjnaUyi the space *EF00-EF9F. The consequence of this SEL input being high, is 
that the B input is "tennected* to the Y output,' aftfl so the bus biiff«ri\ cf»t^^^^ 
ler lines are fed with a low level, what determines that only write is perfflitted 
to the interface and bus, and no read is possible. 

Third, IC4, RAM 6116 (or SIxk) was already addres'sed at »iStf-EFFF (or 
J0800-0FFF, EPROM, originally), but now it must be disabled in the new I/O ad- 
dress page or $EF00-EFFF. It's just enough to utilize one of the unused 3-input 
nand gates (again after the disk-interface, ref.5_fig.l and 3). This gate N46, 
will replace functionally N41 on the CS and the OE RAM pins. Its i nputs will be 
the /2 as before, the inverted K2 and K3 as before, plus the $EFXX line. The ef- 
fect is the subtraction of JEFHO-EFFF from this RftM. If you want, you can unsol- 
der R2, R4. _ 

Fourth, the new, syste«-«Qnitor EPROM, on IC5, (previously 2716). The OE 
doesn't suffer modifications neither the^ pin; but pin 21 is now line All. Of 
course, gate N43 must add the four K lines (K4 through K7) which must be linked 
together on points D-E-F, while R14 and R15 must withraw from their places on 
the main board. 



C - DISK BOARD - f i g . 5j (ref.4, fig. 9) 

Some ICs isust be added to this card if the complete address decoding is 
desired. Six addresses are needed. A 13-1 nput nand gate ('S133) wi 1 1 decoi-e" up 

1 to B addresses, and the so obtained $EFC0-EFC7 line is directed to CS2 of either 

the 6850 ACIA and 6821 PIA. Then the ACIA's CSl is linked with h2 and CS0 with 
Al, so it lies_at *EFC4-EFC5, where A2 is high and ftl is low. The CSl of the 

I 6821 links to h2, CS0 with0and RSI and RS0 with Al and A0 as before; this chip 

will be active on *EFC0, 1,2,3. A drawback of this arrangement is that the data 
buffers of the board {lCt3, "LS245) must be active on the 2+4 addresses. I ougth 

I to do that with two new gates, a 3-input-and, plus a 2-input-or, as drew in fi- 

i gure 5. Summing it all, it is a '133, a '240 (six inverters), a '11, a '32 and 

I i '38 if this last gate was not put on the «ain board. 

I This card was already "backed" with the logic necessary to the control 

I of the drive motor (10) so in the end, it will be a heavy one! 

X . ^ ' 

X 

I D - VDU BOARD - fig. 6; (ref.6, fig. 4) 

I fhil it tfcf slightest modified one, with one more gate, necessary to re- 

duce the iflcoding from 8 to 2 bytes, the only two registers necessary for the co- 
I iutticatiesn with the 6B45 CRTC. The 3-input and gate (74S11) idds two ««re ad- 

j dress lines to the 13 already present to the 'S133 IC9. The remaining address 1 i- 

i nes present to N38 and to N37 must follow the chosen addresses for the 6845 CRTC 

(*EFC6,7) and to the circuitry cGnduetinig ti the 4it6 (ot Slxxl Big IE. The vi- 
deo BAH is now at tEaBB-EJFF; the first K of this 2K space corresponds to the 

I 2 2 



EfB 5 0 5 



KEIMNER ' 



r 



RAM in the main board, and the (previously) closed bus-buffers. It i»pli»s tbiti 
those RAM chips in the aain board and the PROM on the inter-face card, be already 
out. The second IK was the RAH In the interface card, which must be out too. 

The location ot the wl4ea meaory may be arguable; I dectit^ so, because, 
at the end, I have RAM contimpmly from $01300 to *EF80, which passes through 
the VIDEO RAM, and inclacfts the HA RAH, some 61312 RAM addresseswbich can be u- 
sefull to softe applications. " 

If ym want ttr verify each step, a possible time-table to do all these 

modifications, could be: 

1- install 'LS85 + 'LS30 on the nain. board, to get signals $EFXX , A<B, A=B & A>| 

2- "subtract »-t/«"ptge from' RAH IC4 on the interface board: wire new N46; (fe- ' 
program the VIDEO routines on EPROM, relocittng the video ve|:tor5 froa IIFXX'" 
to other place). Take off R2 (K3). 

3- re-address all your *tisef" T/t adclrew«s, as the real-time clock, A/D boards, 
peripheral control,.., to the new I/O page unused addr esses ^ if flat fwou^h 
space, subtract one more page (previous point 2-). 

4- re-address the VIA &522 in the interface board; (reprogram the Centronics rou- 
tines on EPROM: *F800-F9FF ^ IEFA0-EFAF). 

5- re-address the ACIA 6850 and PIA 6821 on the disk board; (reprogram the boot- 
up routines on EPROM, and ffS65DV3.3 addresses on diskettes: ^C0XX IEFC0- A 
EFC5, tracks 00, 01, 06-4, 17 fy. 13 (COPIER), 39-1). \ , .''T* 

6- re-address the 6845 CRTC on. the VOU boartii (reprogra* the VIDEO routines W'f 
EPROM, addresses on diskettes as ffP"I^EC*: *D800-D807 $EFC6,7). ^; 

7- program, beforehand, a 2732 EPROM with all yaur system/mon i tor rout i nes ; *youf 
will have: $F000-F7FF as before, $F800-FBFF afresh (old 6522 VIA + 6532 PI^),,; 
and *FC00-FFFF, the old system monitor space at the main board, with all the V*:'"" 
new addresses. 

8- a) or, the interface board: take off the PROM and associated N40-Il15 ('LS30J, 

unsolder the pull -up resistors R32, 34 4: 35 

take off the RAM chips IC2 and IG3 plus R33 (Kl) : 

install the 'LS 157 

and re-address the new EPROM 2732: wire All to it 

b) on tfte Bain boards take off the EPROM and R14 (K7) 

take off the RAM chips IC4 and ICS, plus R16 (K0) 
and re-address the 6S32 PIA; unsolder R15 (K6) 

c) on the ¥D(l boards re-address the CMOS video-refresh-RAM. 
CONCLUSION 

H you feel skilful! to undertake such an enterprise, don't give up. It • 
is worthy! And be patient... it topk me months. 

If you need, I'll try to answer your questions. 

References: 

1. jmi&r computer - elektor MAY. 80 ' 

2. 3K RAH / 4, 8 or 16K EPRQH on a single card - elektor SEP.8I| 

3. the fully flsigfd junior computer - elektor HAY. 81 

4. floppy-disi MMrtace for the Junior (1) - elektor NOV. 82 

5. floppy-distc interface for the Jmior 111) - elektor &EC.82 

6. VDU card - elektor SEP. 83 

7. nmf - Riflff-I/'f-TJ^rf (Km) - Rockwell data sheet D42-Rev.6 - OCT. 83 

8. address decoding - elektor JAN. 84 

9. teaory tinin^ - elektor FEB, 84 

10. tinffMting tftt floppy-disk drive aotor - elektor APR. 64 

Sext tiiiiei ANOTHER VIEM OF THE DOS JUHIOR (SOFTHARE TIPS FOR THE DOS JUHIOR) 
(F. LOPES, Col^gio dos OrfSos, Lg, Baltazar Guedes, 4300 PORTO PORTUSAL) 
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Md a ciRdMMtd I/O iiage. 



DISK BOARD 

(•MAIN BOARD) 



mm BOARD 




• see text 



EF00-EF7F:RAH (12« BYTES! 
eFf««CF>F : t fO . TIMER. E06E DETECTOR 



figure.3 - aiS85 plus a'S3l re-address the PIA, froa a 512 Nidi to a 32 tiny 
•ddrtMi 

DISK' BQARD 



A1S- 



JS. 



10 



a "I 



4> 



1/0 RACE SEL lE^I 



7iLS30 



tc iOARP SELECT 



741.Sf» 




9 



7iLS32 
\S 



A2 



AO 









6850 




ACIA 


est 




cso 




RS 






EFC4.S 



J3, 



35 



2il 






6821 




PIA 


CSl 




cso 




RSI 




IISO 





tits KS 
EFCO-»S 



figure.4 - on the interface board, the PROfl retires, and the bus-buffers are on- 
ly disabled on the PIA addresMt. 



2^Ei 5 D 5 



DISK BOARD 



At 



— P- 



74LS30 



A7 • 

t 

I ■ 

I 

I 

aL ■ 



It 



A3 83 

*2 B2 

Al Bl 

AO BO 



A<a A<B 

A>« A>e 



INTERFACE BOARD 

VIA Ke 



AB9 



74LSI$ 



r 



.J 



*2 



«10 



K2 
K3 



m 

KS 
KB 

K7 



23. 



JMXm Ik 



high 



7*iS»S7 



CS2 

CS1 



IC1 

VIA 
6522 

EFAO - EFAF 



9 NEW 



71 LS 213 



BUSBUFFERS 



>* bufi 



_ota 
buffer- 
ed 



MS? set. j&^vB 9 i ema white on bus 

(BSSZWAI (NO READ) 



ram r/W 



RAM 
6116 

CS 
of 

E»00 EEFF 
ffE [2 1 ^ A»0 ^ 1 9 



2|w*^ 



7«LS0O 



MAIN BOARD 

sou new gat 
into the I/Q pige. 



TO SYNC. (STEP BY STEP) 



ICS 

EPROM 
2732 



FOOD -f'FFF 



ABIO 



A10 



figure. 5 - sou new jates on the disk board, to re-address the floppy addresses 



VOU BOARD 



*»- 

AU- 
A13- 
Ai5- 
A11 - 
A10- 
A9 
AS 



74S»» 
A6 . A7 



Kb 1 . ° ^ 

"^U^ — 

k1 '-*—^^5 



.WE'D' 



Al 
AO 



EFC6.7 25 



© 



A1S — 

AU- 

A13 

aT2- 

aTT- 







CS 






IC 11 




CRTC 




6845 


RS 




£FC8,7 



WE 

"lC.5 

BAM 
61T6 

CS 

®6oa-B7## 



(BUS BUFFERS) 

CRTC M.0 ea«n enabled 
nemtifcr enabled 



VPURAM OLD DO00-D7FF ENABLED 
NEwCeOOO -E3FF DISABLED 
(e400 -E7FF ENABLED 



fioure.i - a last gate on the VDU board, to address the CRTC and the Video RAN 
at IEF£i,7 and iENI-ETFF. 



KEIIMMEIR 



) »■ 



HET LEZEN VAN BASlCOBfe-^ VOOR DOS-65 



1 INIEIDIN6 

Nadat ik «ijn JUNIOR oAgebouHd had naar 
een DOS-65-co(»puter, Nilde ik nog steeds 
progranMu's van het NOS radio-prograatta 
HOBBYSCOOP ontvangen. Hiervoor heb ik het 
BflSICODE READ PROGRftM (ELEKTUUR oktober 
1983) herschreven. flls cassette-recorder 
interface gebruik ik het ELEKTUUR C64- 
cassette-interface. Het proqraiMa kan 
BftSICOOE pro-grattta's van aax 32K ontvang- 



2 6EBRUIK 

Nadat de cassette in de recorder geplaatst 
is kan het progranidia gestart Horaen door 
'RBC filenaam' in te typen. De computer 
»eldt zich net 'READ BCODE-2'. Nu kan de 
recorder gestart worden. De data wordt nu 
ingelezen. Zodra dit gebeurd is, 'piept' 
de coaputer ten teken dat er iteer geiterkt 
aoet Norden* Er Mumm tMW feuttn gfMld 
worden! 

- OUT OF MEMORY = Het geheugen van 

de coaputer is te 
klein voor het 
progranna, 

- CHECKSUM ERROR = De ontvangen check 

SUM is met gel ilk 
aan de berekende 
checksua. 

Daarna wordt de ontvangen data weggeschre- 
ven (SAVE DATA) op de gebruikersschijf 
ondtp de opgigfvcn filenaaa. 

Net behulp van de EDITOR kan de ontvangen 
ASCII-file aangevuld worden aet de stan- 
daard subroutines (BCSTRT), Deze nieuwe 
file kan door BASIC ingelezen worden diid- 
dels het input redirect. Daarna kan de 
BASIC-file gesaved worden en kan het pro- 
gra«M gerund Msrden. 



3 CASSETTE-INTERFACE 

De cassette-interface staat beschreven in 
de ELEKTUUR van januari 19S5. Hiervan 
wordt alleen het gedeelte voor het lezen 
en schrijven van data gebruikt. De relais- 
schakeling voor de aotor-sturing wordt 
nict gebruikt. Ik gebruik een PHILIPS 
caiiette recorder type 0 6410 (audio- 
recorder). 



- R13 was 100 Oh* wordt 3300 Oha, 

- R14 was 1500 Oha wordt 5B0OO Oha, 

- C6 was 100 nF wordt S£ nF. 



Het interface heb ik als volgt aet de coaputer verbonden: 



PB7 ~ 
VIA2 

CBl - 
VIA2 



■{ — 



+5V 
GROUND 



+ h 

1 C64-cassette interface 1 

1 5 write 1 

1 ' -) 1 
1 .1 


OIN-btts 
— 1,4 


1 

1 4 read 


6iK)IM) 1 


2 


1 
1 

1 2 +5V 

1 


(= 1 


3,5 


-1 1 6R0UND 
1 

+ — — - 







Ojmaae 

flUDIO 
CflSSETTE 

Hetifpil'' 



4 DNTVANG-PROGRAMMA 

Het REAO-BASICOOE-2 prograaaa is afgeleid van htt BASICODE READ PRO- 
Bm van ELEKTUUR (oktober 1983). 

Het oude progranMa naakte gebruik van de tiacr in de £S32. Aangezien 
deze niet standaard aanwezig is in de DOS-65 computer naakt het nieuwe 
prograaaa gebruik van de tiaer in de 6522 (VIA-2). Oadit doie geen 
prograaaeerfiare deelfactor heeft heb ik het tiaing gedeelte van het 
prograaaa zodanig aangepast dat de geaeten tijden door vier gedeeld 
worden, Hierdoor kan de periode-tijd weer in acht bits bewaard worden. 

De aachine-code van het programma aoet op de systeea-schijf gezet 
worden onder de naaiti RBC. De oiode van de file itioet in de coaaand aode 
(C) gezet worden, zodat het prograaaa gerund kan worden door het 
ii^ypen van iigj^lwMM. 

5 STANDAARD ROUTINES 

Na het ontvangen van een Basicode-prograaaa aoet het prograiaa nog 

uitgebreid worden aet de standaard routines (BCS'^'RT), Deze routines 
aaken gebruik van enkele subroutines die niet standaard aanwezig zijn 
in de DOS-65 coaputer. Daaroa aoet het prograaaa BCSUBR ook op oe 
systeeaschijf gezet worden. 

Oa ervoor te zorgen dat de subroutines aanwezig zijn als BASIC gcladen 
wordt, aoet dit prograaaa aan BASIC worden toeaevoegd, of aoet een 
coaaando geaaakt worden waaraee eerst BCSUBR geladen wordt en daarna 
BA^C Nordt opgcstaft. 

VMfbeeldi BASICODE (ASCII coMMndo file) 

LO OiBCStilt , ' ■ 

BASIC 

Hierna kan het BASICODE prograaaa geladen en gerund worden. 

6 LITERATUUR ' ' ' ' 

Ba5icode-2 Hans 8. Janssen . I " ^ 

Hilversuai Nederlandte Oarofp SticMim ^ 

ISBN 90-6833-001-2 

Elektuur oktober 19S3 

Basicode-2 pag. 40-43 

Basicode-2 voor de junior pag. 57-63 

7 PETER LflSKER, DRAKENSTEYN 291. 7606 TR ALNELO, 0S490 - 7217B 
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0005J 
0010: 
0015: 
0020: 
0025: 
0030: 
0035: 
0040: 
0045: 
0050: 
0055: 
OOiO: 

' 0065: 
0070: 
00 75i 
0080s 
6085: 
0090; 
0095: 
0100; 
0 1 05 ! 
M- 0110: 

^0115: 

• 01 25 J 
0130: 
, 0135: 
0140: 
0145: 
0150: 
0155: 
0160: 
^' 0U5: 
0|70! 
0175; 
0180; 

. OliS: 
0190: 
0195: 
0200: 
020SJ 
02104 

0220: 
0225: 
0230: 
0235: 
0240: 
0245: 
0250! 
0255: 
0260: 
0?«5t 
0270: 
02751 
02««fs 
0285: 
0290: 
0295: 
0300: 
0305: 



F427 



ORG ♦F427 

•iift«imili«»«ttli«tttt«tt«««ll»»»«t««i»tt»«»»»»Htttt§ttitttlti 
il "B E L for E C 6 5 «« 

ft by Lindstr0ii It Rasaussen #1 

»t Pdrkvej I, 0i(-4S34 H#rvff It 

«« juH/8& ii 

ii«tt«*lltti»t»i«**tttiitliltfi*iitii«ittiiitiiittt«ititii 

This is a "bell "/chr$ (7) / for ec&S. The rtiutine is placed 
in the 'boot-roa' instead of the different icreen-paraae*' 
ters not used in sanson. To iapleavitt the rciutl^i| ejKf|f|i| 
adrs. »F005..7 to 2027F4. ^isiM ' ' • 

+5« 



vi«2 / PB7 



2 k 2 



• T. . . 



F427 
F427 

F427 

F427 

F427 

F427 

F427., 

F427 

F427 



PB7 of via 2 is used for output of the 
oha speaker or a mini-buzzer and add 

» ^«^ei«. >ejy»l^.. ibijtt , pQt loud! it 

■A« ;'-c' ■ " ' - 




tone. Use » 
a transistor for lo- 
♦lill get on your Rerves) 



I.. > 



I» . 

VBTALL 
VBTALH 
VBTBCI. 
VBTBCH 

mm- 



adresses # 
VBPBD 



VBPBD 



405 

f06 
+ 07 
♦08 
+ 09 



tiaer 

timer 
ti «er 
ti aer 

t i fflDT 



1, 

I, 
u 

2, 
2, 



cotmter-tiigb 
latch low 
latch high 
latch low, counter 
counter high 



. VJ|Pg.C|^ +0B auxiliary control register 
i:¥iBNKI'"+OD interrupt flag register 



A I) 


63 23 




lOA 


AHOLD 


get character 


C9 


07 




CMPIH 


$07 


i'i it«eHi»<07)'^ 


FO 


01 




BE,8 


BELL 


!^ff f f»to bel 1 








RFS 




else return 


48 




BELL 


PHA 




save A 


m 


m 




LMin 


ICO 


set bit 7,6 " I "->Tl :en.PB7 out/fre run 


BD 


IB m 




il# 


WACR 


bit- #1 tO' Tt-i •W 'riNt. 


A9 


00 




L0AIM 


•too 


tiaer 1 generates the t(>ne 


8D 


16 El 




STA 


VBTALL 




A9 


02 




LDAfH 


*02 


set tone-frequency to approx. 100il>l^ 


8D 


17 El 




STA 


VPTAIH 




8D 


IS El 




STA 


VBTACH 


start the tone 


m 


m 




LBAtlf fdO 


tiaer 2 eontrols duration of the tone 


8D 


18 El 




STA 


VBTBCL 




A9 


C3 




LDAIH 


iC3 


gives a duration of approx. SO as. 


m If 11 




mti 


VfTfCH 




A9 


20 




IDAIM 


$20 


timer 2 set bit 5 of IFR 


2C 


10 El 


TIMOUT 


BIT 


VBIFR 


is tiae out ? 




rs 




Biff 


tiHoirr 


if net Matt, 


AO 


18 El 




LDA 


VBTBCL 


tiae out, clear tiaer 2 interruft flag 


A9 


00 




LBAIH 


$00 




8D 


IB El 




STA 


VSACt 


and stop tone. 


68 






PLA 




restore A 


60 






RTS 




and return 



2 8 



DBS 



20-Sep-86 135 23 
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I m*t APPLE CQ!s«>AfIiLI CASSETTE INTERFACE **«»* • - J 

! 

I Pieter de Visser 

5 The system I am using is a DQi65 computer with a couple of changes; one of 

; these is the addition of a cassette interface. The hardware oi it is pLiitp 

I straightforward? it can also be used for Basicode. I use a 6522 VIA: input 

J IS on PB7, output cjn PB6. 

5 The original Apple f«rm«% hm some iSisadvantages; I have impr Qvsd it on two 

jl points: 

j The header can now hm yariafd in lengths by default, I use one of 5 seconds 

5 (that of the Apple is 10 seconds). 

f The read routine searches the start of a next transmission; it dDe<3 thi3 by 

S requiring 256 consecutiye 'long t'a'. 

■5 Also, I fiayt ifteluitd ■» verify routinBi it counts the number of di-f fsrence'? 

; between a mefflory blmk and a cassette data block. 

5 I have used some 6SC02 instructions! it won't be easy to do withoiit them. 

; The same applies to adapting the routini^* fes a Z HHz 65C02, 

8 zero pitpr ifi^^dr esses used 

checksum in read routine ' . . 

bit 7 is a copy of last inout state read 
basin -SMtdrJiSS. of memory black 
end «dldri-f« Iff memory block 
error cmiter used in verify routine 





00D2 




org 


tOOdS 


:D0D2 
:>0D3 
'J0D4 
DOD& 
D0D8 




chksum 
last in 
begad 
en dad 
ercnt 


res 
res 
res 
res 
res 


1 . 

1 

2 

2 

2 




0200 
F780 


header tns\U $0200 
! ($40 is 10 seconds, 
orb equ $f780 
! initialized properly 




2000 




org 


$2000 



length of hes#(|f*'! 
s's) 

VIA address: the por£ mst 



fM fe«ein stored here 
been 



200U 
ZOOl 
2002 
2005 
Z008 
JOOA 
ZOOC 
iOOD 
200F 
JO 12 
2015 
JO 17 
2018 
201 A 
20 IC 
20 IF 
2020 



08 
78 

AD 0002 
20 2A20 
AO 26 
52 D4 
48 

B2 D4 
20 2120 
20 5420 
AO IC 
68 

BO FO 
AO IF 
20 2120 
28 
60 



? Cassette write routine 

5 Write memory block lr«» *#f ad until endad (inclusive) to eafsstte, 

cassw php 
sei 

Ida header 

jsr headr 

Idy »«26 

casswl eor Cbegad] 
pha 

Ida C begad 3 

Jsr wrbyte 

jsr nsKt 

Idy .#*lc 
pla 

PCS mwmX 

Idy mi4 

jsr wrbyte 

pip 
rta 



no interrupts 
write header 



update checksum 

get byte 
write it 
nmt address 

not yet ready t 
wrifci' chsc^ksim. 



2021 A2 10 
2023 OA 

J024 20 3720 

J027 DO FA 
2029 60 

102A AO 49 



1 



jsr 
bne 



headr Idy 



i«iO 

wrbit 
l.b 



»*49 



write A as a byte 

write one nit 

not y£3t written B bits 



write header 



2 9 



assette routines 



02C 
02F 
031 
033 
035 
037 
03A 
03B 
03C 
03D 
03F 
041 
043 
044 
046 
047 
04A 
04C 
04F 
050 
052 
B5:3 



20 3C20 
DO F9 
69 FE 



BO 
AO 



F5 
IF 

20 3C20 

C8 
C8 
88 

DO FD 
90 05 
AO 32 
88 

DO FD 
A8 

AD 80F7 
49 40 
8D 80F7 
98 

AO 2A 

CA 

60 



054 E6 D4 
056 DO 02 
058 E6 D5 
05A AS D6 
05C C5 D4 
05E A5 07 
060 E5 
062 60 



DS 



:063 
;064 
!065 
;067 
1069 
!06C 
;06E 
1071 
1073 
1075 
1077 
1079 
107C 
107E 
1081 
1082 
1084 
1085 
!087 



08 
78 

A9 FF 
85 02 
20 A920 
AO 3A 
20 BF20 
92 D4 
45 02 
85 02 
AO 35 
20 5420 
BO FO 
20 BF20 
38 

E5 D2 

C9 01 
60 



?08S' OS 
;089 78 
;08A 64 D8 
J08C 64 D9 
liiE 20 A920 



wrbit 
zerdly 

1 
2 



next 
1 



bne 

adc 

bcs 
Idy 
jsr 
i ny 
iny 
dey 
bne 
bcc 
Idy 
dey 
bne 
tay 
Ida 
ear 

tya 
Idy 
dei'i 
rts 

inc 
bne 
inc 
Ida 
cmp 
Ida 
sbc 
rts 



20-Sep-86 13; 23 

serdly 
headr 
#*-fe 
headr 
#$H 
zerdly 



zerdly 

2,i 

.«»32 

l.b 

orb 

#*40 

orb 

tt«2a 



be^ad 

beqad+1 

endad 

begad 

endad+l 

begad'^1 
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A # 256 long Ts 



and a short 0 
write bit . 



write half bit 
zero bit ? 

delay for half '1' bit 



toggle output 



increment begad 



compare with endad 



(not ready) 



i; Cassette read routine 

; Read into memory block -from begad until endad (inclusive). 
: A-fterwards, C = 1 indicates error. 

cassr php 
set 
Ida 
sta 
Jsr 
Idy 

cassr 1 jsr 
sta 
eor 
sta 
Idy 
jsr 
bcs 
jsr 
sec 
sbc 
pip 
cmp 
rts 

Cassette veri-fy routine ^ . ,. , j » 

Compare transmission with memory block from begad until endad (inciySti veJ . 
Afterwards, ercnt holds number of differences. 
The checksum is not checked. 





no interruots 


#$f f 


initialise checksum 


chksum 




f indst 


find start of transmission 


#*3a 




rdbyte 


read byte 


[begad] 


adapt chksum 


chksum 


chksum 


#*35 




next 


next address 


cassr 1 


not yet ready ? 


rdbyte 


read checksum 


ctiksum 


A should Its Q how 


#*01 


else C becomes 1 



cassv 



php 
sei 
stz 
sts 
jsr 



ercnt 
ercnt+l 
f indst 



no interrupts 
no errors yet 

find start of transmission 
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5sette routints 



20-Sep-86 13:25 



n AO 

?3 20 

?6 D2 

?8 FO 

?A E6 

?C DO 

?E E6 

^0 AO 

^2 20 

^5 BO 

W oO 

^9 A2 

AO 

\D 20 

30 90 

32 CA 

33 DO 
35 AO 

'0 



:6 



Dl 
D4 



3A 

BF20 

04 

06 

D8 

02 

09 

35 

5420 
EC 



37 
3 A BO 
3C 4C 



00 

2B 

D020 
F7 

F6 

D020 
F9 

D020 



3F A2 03 
:i 48 

:2 20 CD20 
68 
2A 
:? AO 3A 
:9 CA 

:a do f5 

:c 60 

:D 20 D020 

do SB 



AD 8 OF 7 
45 D3 
D6 10 F8 
D8 45 03 
DA 85 03 
DC CO 80 
DE 60 



fifflii«t. 
I 



rdbyte 
1 



rcl2bit 
rdbit 



Idy 
jsr 



mc 
bne 
inc 

\<if. 
jsr 

PIS 



isr 
occ 
den 
bne 
Idy 
Jar 
bcs 
jmp 

Idx 

jsr 

pla 

rol a 

Idy 

dex 

bne 

rts 

jsr 
dey 
Ida 
ear 
bpl 
Bor 

esy 
rt« 

Mid 



#$3a 

rdbyte 

|b|gAdl 

l.f 

•rcnt+1 
#$35 



#$00 
#$2b 
rdbit 
Hndst 

1. b 
#$22 
rdbit 

2. b 

rdbit 

#$08 
rd2bit 

i»3a 
l.b 

rdbit 

orb 

last in 
rdbit 
last in 
lastin 
l$50 



read byte 
check it 
ok ? 

then it's an error 



next address 
not yet ready ? 



find start of transmission 



read UaH bit 

if it's not a 'lona 1' 



then restart 



eheck ior another 'long 1' (256 needed) 
IWiarch 'short 0' 



skip other half of 'short 0' 
read byte = 8 bits 
read bi. t 
rotate new bit 



read -fuii. bit 
read half bit 
wait far transition 



rors detected: 0 




31 



B 5 a s 



This extension applies to the JUNIOR with 0S-65D V3.3 JHS. 

While developing BASIC programs it is often necessary to 
remove a number of lines at the same time. For this purpose 
many BASIC interpreters have a DELETE comniand uith uhich 
it is possible to remove several lines at the sane tine. 
This extension adds a DEL conrsand to the BASIC intensretBr 
from address $3591 iiihere sonie cursor-routine resides that 
is not effective on the JUNIOR. 
The DEL coBraand replaces the LET statement that is not 
reallLj used nostly (one could make a snail progran that 
enables either DEL or LET). 

In the ad(^esstable and the keyutrdtable the follouing 
ttmm^ have to be natte: 



address 


old 


neu 


iQi'OE 


$A5 


**?0 


tQ2QF 


t09 


$35 




$4C 


$44 




$45 


$45 


mm 


$D4 


*CC 



Birections for uses 

DElIO : deletes line 10 

DEL-lO ideietes up to line 10 inclusive 

DELIO- : deletes froiii line 10 

I£L10-20 : deletes fron line 10 up to 20 inclusive 

&- ! deletes the entire mi^M 

fierrit van Uoerkon 
Appelaar 55 
4907 KD Oosterhout 
The Netherlands 



10 

20 0019= 
iQ 0U6F= 
40 0071= 
50 007A= 
m (MAC= 
70 

80 OUCU= 

100 0511)= 
no 0633= 
120 0V6C= 
13Q 0E1E= 

140 

150 

160 3590 
170 3590 60 
180 3591 A487 
190 3593 C8 
200 3594 F003 
210 3596 4CD010 
220 3599 20C600 
230 35'^C D003 
240 359E 4C1E0E 
250 35 A 1 9004 
260 35A3 CyA4 
270 35A5 D0F7 



5BAS1C DEL CHD 

INTEG =$19 
INDEX 1=*6F 
INDEX2=*7l 
STVAR =*7A 
LOWTR =$AC 

CHR6ET=$00C0 
PREVCH=$00C6 
REC0MP=$051D 
RECH£R=$Q633 
COLL =$096C 
Sr€RR =$CE1E 

ILLE6 mm 



NORUN 

ERROR 
DELI 



♦=$3590 
RTS 

LBY $87 

INY 

BEQ NORIJN 
JMP ILLEG 
JSR PREVCH 
BNE DELI 
JMP SNERR 
BCC LNNMBR 
CMP #$A4 
BNE ERROR 



260 35A7 
290 35AA 
300 35AD 
310 35B0 
320 35B2 
330 35B4 
340 35B6 
350 35E9 
360 35EC 
370 35EE 
380 35C0 
390 35C2 
400 35 C4 
410 35C6 
420 35 C8 
430 35 CA 
440 35 CC 
450 35CE 
460 35 DO 
470 35D2 
480 35D5 
490 35D7 
'iUO 3'if')V 
510 35DE 
520 35DC 
530 35DD 
540 35DF 
550 35E1 
560 35E3 
570 35E5 
580 35E7 
590 35E9 
600 35EB 
610 35EC 
620 35EE 
630 35EF 
640 35F1 
650 35F3 



660 
6/0 
680 



i5F4 
35F6 
35F7 



690 35FB 
700 35FA 
710 35FC 
720 35FD 
730 J5FF 
740 3601 
750 3603 
760 3605 
770 3607 
760 j60S 
790 360A 
800 360C 
810 360E 
820 3610 
830 3612 
840 3614 
850 



iRUN-mode? 

;if yes then FC ERROR 
;only DEL? 

;if yes then mmm 

fiinenumber? 

lirnnus sign? 

; if no then ERROR 



206C09 

203306 

20C600 

FOOC 

C9A4 

D0E6 

20CQ0Q 

206C09 

DOEO 

A519 

05 1 A 

D0Q6 

A9FF 

8519 

851A 

A5AC 

A6AD 

8571 

8672 

203306 

9012 

AOOl 

ElAC 

38 

AA 

0004 
ElAC 
F006 
ElAC 
85AC 
86AD 
A571 
38 

E5AC 
AA 

A572 
E5AD 
AS 

EOlt 

8A 

18 

6j7A 
85 7 A 
98 

657B 
857B 
AOUU 
BIAC 
9i7l 
C8 

\)Qf9 
E6AD 
E672 
A57E 
C572 
EOEF 



mi 



JSR 

JSR 
BEQ 
CMP 
ENE 
JSR 
JSR 
BNE 
LDA 
ORA 
BNE 

lda 

STA 
STA 

NONUL LDA 
LDX 
STA 
STX 
JSR 
BCC 
LDY 
LDA 
DEY 
TAX 
BNE 
LDA 
BEQ 
LDA 
STA 
STX 
LDA 
SEC 
SBC 
TAX 
LDA 
SBC 
TAY 
B<3 
TXA 
CLC 
ADC 
STA 
TVA 
ADC 
STA 
LDY 
LDA 
STA 
INY 
BNE 
INC 
INC 
LDA 
CMP 
BCS 

fEADY JMP 



l)EL4 



I£L3 



NEXT 



COLL 
RECHER 

PREVCH 

DEL2 

#$A4 

ERROR 

CHRGET 

COLL 

ERROR 

INTEG 

INTEG+1 

NCiNUL 

#$FF 

INTEG 

INTEG+1 

LOWTR 

LOWTR+1 

INDEX2 

INDEX2+1 

RECHER 

DEL3 

#$01 

(LOWTR), Y 



DEL4 

( LOWTR ),Y 
DEL3 

(LOWTR), Y 
LOHTR 
LOWTR+1 
INDEX2 

LOWTR 

1NDEX2+1 
lOHTR+1 

READY 



! fetch Ist linenuiriber 
isearch for Ist line 

;2nd linenusber? 

iminus sign? 

I if no then SN ERROR 

i fetch 2nd linenumber 
SKHre, then SN ERROR 



irenave to end prt^rm 



STVAR 
STVAR 

STVAR+1 
STVAR+1 
«$00 

(LOWTR), Y 
(INKX2),Y 

NEXT 
LOWTR+1 
INDEX2+1 
STVAR+1 
INDEX2+1 
ICXT 



ishift BASIC text 
{upward in UNsrkspace 



iare ue ready? 

i rearrange BASIC lines 

iand return to BASIC 



BRIEVEN m DE REDflKTIE 

S.J. Voortnan, Beatrixweg 28, 3253 BB OUDDORP 

Zijn er leden in onze club die ook een Proton PC-2 hebben,, 
en weten hoe ze een extra character-RAM op de (Video-prtt" 
cesser IC's) EF 9340 / EF 9341 (op de se«HF«fifle^ 
video-kaart) vanuit een prograMia aan kunnen stawnf flit 
zelf definieren van de 96 karakters en het gebruik hier- 
van op het beeldschert). Ik heb zelf Hel enkele kopietjes 
van de data-shrat, uar Meet er niet goed raad «ee. 
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mm mt mBum fmt mi 



0001 


0000 






.TIT 'SEHING TOLLY-PRINTER' 


0002 


0000 










0003 


0000 














0004 


0000 










0005 


0000 




; THIS ROUTIIC IS DE\^OPED TO CHONGE SB^ROL FUNCTION 


0006 


0000 




; SEHINGS OF 0 TOLLY 1612 IMPOCT PRINTER VIA THE SERIAL 


0007 


0000 




; INTERFACE, USIN6 T>€ ACIfl OF ELEKTDR'S CPU CARD. 


0008 


0000 




; THE ROUTI^E IS RUNNING ON AN ELEKTOR'S CPU/VDU SYSTBI 


0009 


0000 




; USING THE PROTON DOS. 






0000 




; AN EXPLANATION OF THE VARIOUS MONIIQR HVTINES IS BIVBt 




0000 




; AT THE END OF THE SOURCE LISTING. 


0000 




; THE ROUTINE IS STORTED BY 0 FUNCTION KEY IMS WilK 


ms 


om 




; IS LOODED OT THE ADDRESS $0521. 


0014 


m» 










0015 


0000 








; iMfimitftifiiuiiiiiniiimimiimmiiinmim 


001& 


0000 










0017 


0000 




; AUTHOR 


: F.J.M. SMEQUIJZEN 


0016 


0000 






LIPPEDflL 19 




0019 


0000 






2904 CL CAPELLE AON DEN IJSSa 


0020 


0000 






TEL: 010-4512507 


0021 


0000 










0022 


0000 






MOQOO 




0023 


0000 




• 

f 






0024 


0000 




HULP 






0025 


0002 




rnnnn 






0026 


0005 




• 






0027 


0005 






<«>$0506 




002B 


0506 




• 

t 






0029 


0506 


OOlt 




.M» TOLLY 




0030 


0508 




*■ 






0031 


0508 






M0521 




0032 


0521 




■ 

1 






0033 


0521 




0UTFL6 


«=«-l 


; OUTPUT DEVICE FLAG 


0034 


0522 




• 

1 






0035 


0522 






♦=$1100 




0036 


1100 




I 






0037 


1100 




TOLLY 


LOA KTEXTO 


; DISPLAY 


003B 


1102 


mz 




LDX #>TEXTO 


: SCREEN mem 


0039 


1104 


208F13 




JSR OUTPUT 




0040 


1107 


0970 


TAU 


LDA KTEXTl 


; DISPLAY 


0041 


1109 


fl214 




LDX #>TEXT1 


; '6 LlieS PER INCH' 


0042 


HOB 


20aF13 




JSR OUTPUT 




0043 


HOE 


203A16 




JSR REDOUT 
CMP «'Y' 


; GET KEYBOARD 


0044 


nil 


C959 




; IF YES, CHONGE 


0045 


1113 


F007 




BEQ LPI6 


; INTO 6 LPI 


0046 


1115 






CMP i'N' 


; IF NOT, CHONGE 


0047 


1117 






BEQ T0L2 


; VOLUE ON SCREEN 


0048 


1119 


4C0711 




JMP TALI 


; URONG CHOICE. OLUAYS BACK 


0049 


UlC 


A9F& 


LPI6 


LDA #<TEXT13 


; SEND 6 LPI 


OOSO 


iUE 


fl21§ 




LDX i)TEXT13 


; ESCAPE STRING 


0051 


1120 


200313 




JSR QUTP3 


; TO PRINTER 


0052 


1123 


203D16 




JSR flUTLflli 


; SET OUTPUT TO DISPLAY 


0053 


1126 


4C4611 




JMP TAL3 


; JUMP TO NEXT QUESTION 


0054 


1129 


fl991 


TflL2 


LDA #(TEXT2 


; DISPLAY 

; ' 6 LINES PER INCH' 


0055 


112B 


0214 




LDX «>TEXT2 


OOK 


112D 


208F13 




JSR OJTPUT 




0057 


1130 


203016 




JSR REDOUT 
CMP «'Y' 


; GET KEYBOORD 


0056 


1133 


C959 




; IF YES, CHONGE 


0059 


1135 


F007 




BEQ LPI8 
CMP i'N' 


; INTO 8 LPI 


0060 


1137 


C94E 




; IF NOT, CHANGE 


0061 


1139 


FOCC 




BEQ TALI 


; VALUE ON SCI^ 


0062 


im 


4C2911 




JMP TAL2 


; URONG CHOICE, ALHAYS BOCK 


0063 


113E 


fi901 


LPI8 


LDA i(TEXT14 


; SEND a LPI 


0064 


1140 


0216 




LDX i>TEXT14 


; ESCAPE STRING 


0065 


1142 


200313 




JSR QUTP3 


; TO PRINTER 


0066 


1145 


203D16 




JSR OUTLOH 


; SB OUTPUT TO DlSUr 


0067 


Ilia 


1)3716 T0L3 


JSR CRLF 




0068 


m 


111716 




JSR Ci^ 




0069 


tm 


dm 


mm 


LDA i{TEXT3 


; '10CHAR/INP> 


0070 


1150 


0214 




LDX i)TEXT3 


0071 


1152 


206F13 




JSR OUTPUT 


0072 


1155 


203M6 




JSR REDOUT 
m VV 


; GET KEYBOARD 


0073 


1158 




; IF YES, CHANGE 


0074 


USA 






BBicpno 


; m 10 m 



SETTIMB TflLLy-PRINTER 



0075 115C 

0076 115E 

0077 1160 

0078 1153 

0079 1165 

0080 1167 

0081 116A 

0082 116D 

0083 1170 

0084 1172 

0085 1174 

0086 1177 

0087 il7ft 

0088 il7C 

0089 117E 

0090 1180 

0091 1182 

0092 1185 

0093 1187 

0094 1189 

0095 118C 
Om 118F 

0097 1192 

0098 1194 

0099 1196 

0100 1199 

0101 119C 

0102 119E 

0103 llftO 

0104 llfl2 

0105 llfl4 

0106 1107 

0107 llfl9 

0108 llAB 

0109 UflE 

0110 llBl 

0111 11B4 

0112 11B7 

0113 11B9 

0114 IIBB 

0115 IIBE 

0116 llCl 

0117 11C3 

0118 11C5 

0119 11C7 

0120 11C9 

0121 IICC 

0122 UCE 

0123 UDO 

0124 11D3 

0125 11D6 

0126 11D9 

0127 IIDB 
012S HDD 

0129 UEO 

0130 11E3 

0131 11E6 

0132 11E9 

0133 UEB 

0134 UED 

0135 IIFO 

0136 11F3 

0137 11F5 

0138 11F7 

0139 11F9 

0140 IIFB 

0141 IIFE 

0142 1200 

0143 1202 
0 44 1205 
0 45 120B 

120A 

0147 120C 

014a 120F 

0 49 1211 

mm 1214 

mm mM 



C94E 

FOlO 

4C2911 

0905 

0216 

200313 

203D16 

4CB111 

0903 

0214 

208F13 

203016 

C959 

F007 

C94E 

FOlO 

4C7011 

0909 

0216 

200313 

203D16 

4CB111 

fl9F4 

0214 

208F13 

203016 

C959 

F007 

C94E 

FOOO 

4C9211 

090D 

0216 

200313 

203D16 

203716 

203716 

0915 

0215 

208F13 

203016 

C94E 

F007 

C944 

FOlO 

4CB711 

0911 

0216 

20A313 

203D16 

4CE311 

A91S 

fl21& 

200313 

203D16 

203716 

203716 

0936 

0215 

208F13 

203016 

C959 

F007 

C94E 

^^11 

021! 

20A313 

203D1& 

fm 

fl216 
20SF13 
A200 
203fll6 



CWIO 



T0L4 



TflLS 



CPUS 

TRL6 
TOLCfl 



NORML 

DOUBLE 
TflL7 



SElUt 



SETLNl 



CMP «'N' 
6EQ TflL4 
m TflL2 
LDO #<TEXT15 
LDX #>TEXT15 
JSR 0UTP3 
JSR QUTLOW 
JMP T0L6 
LDO «{TEXT4 
LDX #>TEXT4 
JSR OUTPUT 
JSR REDOUT 
CUP #'Y' 
BEQ CPI12 
CMP #'N' 
BEQ T0L5 
J«P T0L4 
LDO #(TEXT16 
LDX #>TEXT16 
JSR 0UTP3 
JSR OUTLOU 
JHP T0L6 
LDO KTEXT5 
LDX #>TEXT5 
JSR OUTPUT 
JSR REDOUT 
CMP i'Y' 
BEQ CPI16 
CMP I'M' 
BEQ T0L3fl 
JMP TflL5 
LM «(TEXT17 
LDX #)TEXT17 
JSR 0UTP3 
JSR OUTLOH 
JSR CRLF 
JSR CRLF 
LDfl «<TEXT6 
LDX #>TEXT6 
JSR OJTPUT 
JSR REDOUT 
CMP S'N' 

m Humt 

CMP #'D' 
BEQ DOUBLE 
JMP TflLGA 
m KTEXTia 
LDX VTEXTia 
JSROUTPS 
JSRQUTLOU 
JNPTAL7 

LDA %mm 

LDX i)TEnt9 
JSR aUTP3 
JSR OUTLOU 
JSR CRLF 
JSR CRLF 
LDfl «<TEXT7 
LDX #>TEXT7 
JSR OUTPUT 
JSR REDOUT 
CMP #'Y' 
BEQ SETLM 
CMP #'N' 
BEQ TflLS 
JMP TflL7fi 
LDA KTEXT20 
LDX «>TEXT2Q 
JSR 0UTP3 
JSR QinUM 
LDA KTEHZS 
LDX «)TEXT2S 
JSR QUTPlfr 
LDX f$00 
JSR REDOUT 



IF NO, CHANGE 

CHRNBE TO 
10 CW 

SET OUTPUT TO DISPLAY 

DISPLAY 

'12 CHAR/INCH' 

GET KEYBOARD 
IF YES, CHANGE 
INTO 12 CPI 
IF NO, CHANGE 

CHANGE TO - . . 
12 CPI 

SET OUTPUT TO DISPLAY 
DISPLAY 

'1&.SCHR8/INCH' 

GET KEYBOARD 
IF YES, CHANGE 
INTO 16.5 CPI 
IF NO, CHANGE 
VALUE ON SCREEN 
WRONG CHOICE, REPEAT 
SEND 

ESCA(¥ STRING 
TO PRINTER 

SET OUTPUT TO DISPLAY 



DISPLAY 

'CHOROCTER WIDTH' 

GET KEYBOORD 

^ORN0L WIDTH ? 

IF YES, CHANGE INTO NORMAL 

DOUBLE WIDTH ? 

IF YES, CHANGE INTO DOUBLE 

WRONG CHOICE, REPEAT 

SEND NORMAL WIDTH 

ESCAPE STRING 

TO PRINTER 

SET OUTPUT TO DISPLAV 

SEND DOUBLE WIDTH 
ESCAPE STRING 
TO PRINTER 

SET OUTPUT TO DISPLAY 



DISPLAY 

'SET LER MARGIN' 

GET KEYBOARD 

IF YES, ASK 

FOR MARGIN Vft.UE 

IF NO, JUMP 

TO NEXT QUESTION 

WRONG CHOICE, ALWAYS BKK 

SEND LEFT MARGIN 

ESCAPE STRING 

TO PRINTER 

SET OUTPUT TO DISPLRY 
DISPLAY ' « ' 



; TYPE IN 
I LER MARGIN 

; MAX 3 mm 



34f 



SETT1!« TflLLy-PRIMTER 



0152 


1218 


F004 




ffiQ STLH2 




0153 


12ifl 


ES 




I NX 




0154 


121B 


4C1112 




JMP SETLMl 
LDO «'fl' 




0155 


121E 


fl941 


SETLN2 


SET OUTPUT 


0156 


1220 


8D2105 




STO 0UTFL8 


TO SERIAL PRINTER 


0157 


1223 


fl200 




LDX #$00 


■ SET PRINTER 


0158 


1225 


K02 


SETLM3 


LDO PARflH,X 


TO LEFT MARGIN 


0159 


1227 


203416 




anal 


; USIN6 INPUT 


0160 


122fl 


E8 




m 


VIA KEYBOARD 


0161 


122B 


E003 




CPX «$03 




0162 


122D 


D0F6 




BNE SETUG 




0163 


122F 


203D16 




JSR OUTLQU 


; SET auTPur to bisajw 


0164 


1232 


203716 TftL8 


JSR CRLF 


0165 


1235 


203716 




JSR CRLF 




0166 


1238 


0957 


TOLBO 


LDO «<TEXT8 


DISPLAY 


0167 


123fl 


ft215 




LDX #> TEXTS 


; 'SET RI6HT HnRBItP 


0168 


123C 


208F13 




JSR OUTPUT 


0169 


123F 


203A16 




JSR REDOUT 
CMP i'Y' 




0170 


1242 


C959 




IF YES, ASK 


0171 


1244 


F007 




BEQ RI^ 
CMP #'N' 


FOR MARGIN VALUE 


0172 


1246 


C94E 




IF NOT 


0173 


1248 


F037 




KQ T0L9 


9<IP ^TING 


0174 


124A 


4C3812 




JMP T«.80 


WRONG CHOICE, ALUAYS BACK 


0175 


124D 


fl91D 


RIfiHTN 


LDO KTEXT21 


SEND RIGHT MARGIN 


0176 


124F 


fl216 




LDX i)TEXT21 


ESCAPE STRING 


0177 


1251 


20fl313 




JSR 0UTP3 


■ TO PRINTER 


0178 


1254 


203D16 




JSR OUTLOH 


SET OUTPUT TO DISPLAY 


0179 


1257 


fl92D 




LDfl #<TEXT25 


; DISPLAY ' » ' 


0180 


1259 


fl216 




LDX #>TEXT25 




0181 


125B 


208F13 




JSR OUTPUT 




0162 


125E 


fl200 




LDX #*00 


TYPE IN 


0183 


1260 


203fll6 8ETRN1 


JSR REDOUT 


RIGHT HARBIN 


0164 


1263 


9502 




STO PORAH,X 


VALUE 


0185 


1265 


E002 




CPX mi : NRX 3 msm 


0166 


1267 


F004 




m SETRM2 




0187 


1269 


E8 




INX 




0188 


126fl 


4C6012 




JMP SETRMl 




0189 


126D 


0941 


SETRM2 


LDfl #'fl' 


SET mm 


0190 


126F 


802105 




STO OUTFLS 


TO SERIAL PRINTER , 


0191 


1272 


0200 




LDX «$00 


SET RIGHT 


0192 


1274 


B502 


SETRM3 


LDO PARflM,X 


MARGIN USING 


0193 


1276 


203416 




JSR OUTfil 


INPUT VIA 


0194 


1279 


E6 




INX 


KEYBOARD 


0195 


127fl 


E003 




CPX #$03 




01% 


127C 


D0F6 




BNE SETRHS 




0197 


127E 


203D16 




JSR OUTLOH 


SET OUTPUT TO BISPUH 


0198 


1281 


203716 TflL9 


JSR CRLF 


0199 


1284 


203716 




JSR CRLF 




0200 


1287 


0978 


T0L90 


LDfl «<TEXT9 


DISPLAY 


0201 


1289 


0215 




LDX #>TEXT9 


'SET PflSE LENBTtr 


0202 


128B 


208F13 




JSR OUTPUT 


0203 


128E 


203016 




JSR REDOUT 
CMP #'Y' 




0204 


1291 


C959 




IF YES, ASK FOR 


0205 


1293 


F007 




BEQ LEN6TH 
CMP «'N' 


PAGE LENGTH VALUE ^ 


0206 


1295 


C94E 




IF NOT 


0207 


1297 


F037 




BEQ TOLIO 


SKIP SEniNG 


0208 


1299 


4C8712 




JMP TOL% 


URONG CHOICE, ALUAYS BACK 


0209 


129C 


0921 


LENGTH 


LDfl #<TEXT22 


SEND PAGE LENGTH 


0210 


129E 


0216 




LDX #>TEXT22 


ESCAPE STRING 


0211 


12fl0 


200313 




JSR 0UTP3 


TO PRINTER 


0212 


12fB 


203D16 




JSR OUTLOH 


SET OUTPUT TO DISPLAY 
DISPLAY ' « ' 


0213 


12fl6 


092D 




LDfl #<TEXT25 


0214 


12fl8 


0216 




LDX «>TEXT25 




0215 


12fifl 


208F13 




JSR OUTPUT 




0216 


12AD 


0200 




LDX #$00 


TYPE IN 


0217 


IWf 


203016 SETPLl 


JSR REDOUT 


PAGE LBttTH 


0218 


12B2 


9502 




STO POROM, X ; 


VALUE 


0219 


12B4 


E002 




CPX #$02 : MAX 3 msm 


0220 


12B6 


F004 




BEQ SETPL2 




0221 


12B8 


EB 




INX 




0222 


12B9 


4C0F12 




JMP SETPLl 
LDfl #'fl' 




0223 


126C 


0941 


SETPL2 


SET OUTPUT 


0224 


12BE 


BD2105 




STO OUTFLG ; 


TO SERIAL PRINTER 


0225 


12C1 


0200 




LDX *«00 


SET PRINTER 


0226 


12C3 


BS02 


SETPL3 


LDA mm,t ; 


TO PAGE LENGTH 


022? 


1^ 
1208 






JSR OUTfiLL ; 


USING INPUT 


m& 


m 




INX ; 


VIA KEYBOARD 



3 5 



SEHINB TOLLY-PRIMISl 



PflOTlM BSm ASSQftER V4.4 REEi OOM 



0229 


12C9 


E003 




CPX #$03 


0230 


12CB 


D0F6 




»fc StTPL3 


0231 


12CD 


203D16 




JbK lAilLlM 


0232 


12D0 


203715 TflLlO 


JSR CRLr 


0233 


12D3 


203716 




JSR CRLF 


0236 


12D6 


fi999 


TflLiOfl 


LDh #<TtXT10 


0235 


12D6 


A215 




LDX #)TEXT10 


0236 


12Dfl 


208F13 




JSR UuTPUT 


0237 


12DD 


203fll6 




THA nn\fH IT 

JSR REDOUT 
UBh t Y 


023o 


I2t0 


C959 




0^Z3 


12E2 


F007 




urn Tnnu 
run 


0240 


12E4 


C94E 




0241 


12tb 


F037 




DCn TAl 1 1 

Dta IHLli 




12ho 


4CD512 




TMD TCM t/VS 




12CD 


A925 


TOPH 






12bU 


fl215 




1 nv ii TFYT'JT 
LUA «' iCA 1 






20fl3l3 




TQR rBlTD"? 
JOn UUirO 






203D16 




JOn UUfLUW 


AO A 7 




fl92D 




1 na *<TFYT9S 

UUH # \ 1 CA 1 l.%J 


U/iJO 




ft215 




LUA W/ 1 CA 1 ZD 




12r3 


206F13 




TCD fMITDtlT 
Jan UUIrUi 


UzjU 


12rLf 


fl200 




LLfA WWU 


UzDl 


12rt 


203A16 SETTHl 


Jon ncuuui 




loUl 


9502 




CTD DflOHM y 
tJlH HHKHW,A 


0253 


1303 


E002 




CPA ffw 


AJ"icr /. 

0254 


4 7AC 

1305 


F004 






0253 


1307 


E6 




INa 


0256 


1308 


4CFE12 




JnP xTTIIl 


0257 


130B 


ft941 


SETTN2 


LDfl # H 


0258 


130D 


802105 




STR OUTrLo 


0259 


1310 


0200 




LDX #»00 


0260 


1312 


B502 


SETTMS 


LDO P0R0I4,X 


0261 


1314 


203416 




JSR [aJTHJ. 


A'V 

0262 


1317 


E8 




INX 


0263 


4 "7 4 n 

1318 


E003 




rnv AAA? 
CPX tf03 


0264 


131ft 


D0F6 




nvir- nrTTM7 

BNE SEMP13 


0265 


131C 


203D16 




TCD ruiTi nu 
JSK OUILUN 


0266 


4 T4 r 

131F 


203716 TflLil 


Ten f*Di c 
JSn CRLr 


0267 


4 7'V% 

1322 


203716 




TDD HDI C 

JSR CRLr 


0268 


1325 


ft9BR 




1 AA 3k /Tr"VT4 4 

LDh # (TEXT 11 


0269 


1327 


0215 




LDX DTEXTll 


0270 


1329 


208F13 




TCD ry ITIH IT 

JbK UUIPUI 


0271 


132L 


203A16 




TCD DCnrU IT 

JSR REDUUI 

cnP t T 


0272 


132F 


C959 




0273 


1 77 4 

1331 


F007 




BEQ BOTH 
UWH f N 


0274 


1333 


C94E 




0275 


4 77C 

1335 


F037 




DCn TAl 1 0 


0275 


4 777 

1337 


4C2513 




TUn TAl 1 il\ 

JBP IHLllH 


0277 


4 77A 

133H 


fl929 


BOTH 


I T\A ti /TCVTOA 

LDh #<TEXT24 


0278 


4 77n 

133C 


A216 




1 TVV ti\ TCVTOA 
LUA f> 1 LA 124 


AO"7a 
0279 


133c 


20fl313 




JSR 0UTP3 


0280 


4 7A 4 
1341 


203D16 




JbK UUiLLM 


0281 


4 7*. L 

1344 


fl92D 




uM fUbAl^D 


0262 


1346 


ft215 




i nv 1*\ TCVTW 
Ll^A 9/ 1 QA i ^ 


0283 


1348 


208F13 






0284 
028j 


134o 


fi200 




LuA fwU 


134D 


203A16 SETBMl 


TCD SK1VUIT 

JbK KbiUil 


0286 


1350 


9502 




CTA nnDAM V 
bIH PHKHRf* 


0287 


135i: 


E002 






0288 


4 7C/. 

1354 


F004 






0289 


4 7cr 

1356 


E8 




TUV 

INX 


0290 


4 7C7 

1357 


4C4D13 




JMP ScTBnl 

i r\A JIT Al 

LDfl # fl 


0291 


13% 


0941 


SETBM2 


0292 


135C 


8D2105 




STfl OUTFLB 


0293 


135" 


0200 




LDX tfOO 


0294 


lool 


B502 


SETBNS 


LUH HHKHn} A 


0295 


1363 


203416 




JSR OUTOLL 


02% 


1366 


Ea 




INX 


0297 


1367 


E003 




CPX #$03 


0298 


1369 


D0F6 




M. SETM! 


0299 


136B 


203D16 




JSR OUTLOU 


0300 


136E 


203716 T«.12 


JSR CRLF 


0301 


1371 


203716 




JSR CRLF 


0302 


1374 


09DB 


Titian 


LDfl #(TEXT12 


0303 


1376 


0215 




LDX l)TEXT12 


0304 


1378 


208F13 




JSR OUTPUT 


0305 


137B 


203fll& 




JSR REDOUT 



SET OUTPUT TO DISPLAY 
DISPLAY 

'Sq,p WR8IN' 



IF YES, fBK FOR 
TOP mRGIN VALUE 
IF NOT 

a<IP SEHING 
UR0N6 CHOICE 
SEND TOP MAR6IN 
ESCOK STRIN6 
TO PRINTER 

SET OUTPUT TO DISBJW 



; TOP MflRGIN 

; VALUE 

|;,(j(^3.RI6ITS 



SET OUTPUT 
TO SERIAL PRINTER 
SET TOP 
MARGIN USING 
INPUT VIA 



M QWPUT TO DISPLAY 



DISPLAY ir 
'SET jUnOH MAR6IN' 



IF YES, ASK FOR 
MITTW IffiRSIN VALUE 

IF HDJ 

SKIP SETTING 
UR0N6 CHOICE 
SEND BOnOH MARSIN 
ESCAPE STRING 
TO PRINTER 

SET OUTPUT TO DISPUJf 



; TYPE IN 

; BOnOM MARGIN 

; VALUE 

,|,I|^,^W6ITS 



SET OUTPUT 
TO SERIAL PRIIfTER 
SET BOnOM 
MARGIN USING 
INPUT VIA 



SET aim TO DISPLAY 



DISPLAY 
'SEniNG OK ? 



SITTIMB TALLY-PRINTS 



PROTON &50X ASSEMBLER V4.4 PAGE: OOOS 



0306 137E 

0307 1380 

0308 1382 

0309 1384 

0310 1386 

0311 1389 

0312 i3ac 

0313 138F 

0314 138F 

0315 138F 

0316 138F 

0317 1391 

0318 1393 

0319 1395 

0320 1397 

0321 1399 

0322 139B 

0323 139E 

0324 139F 

0325 13fl2 

0326 1303 

0327 13A3 

0328 13fl3 

0329 13fl3 

0330 13fl4 

0331 13fl6 

0332 13A9 

0333 13flfi 

0334 13flD 

0335 13flD 

0336 13ftD 

0337 13flD 
0336 13D4 

0339 i3EC 

0340 1411 

0341 142E 

0342 1454 

0343 1470 

0344 1491 

0345 14B2 

0346 14D3 

0347 14F4 

0348 1515 

0349 1536 

0350 1557 

0351 1578 

0352 1599 

0353 15Bfl 

0354 15D6 

0355 15FD 

0356 1601 
0S7 1605 

0358 1609 

0359 160D 

0360 1611 

0361 1615 

0362 1619 

0363 161D 

0364 1621 

0365 1625 

0366 1529 

0367 162D 

0368 1631 

0369 1531 

0370 1631 

0371 1631 

0372 1634 

0373 1637 

0374 163A 

0375 1630 

0376 1640 

0377 1640 



C959 
FOOfl 
C94E 
F003 
4C7413 

4C0011 TflLi2B 
4C31i6 END 



CNP #'Y' 
6EQ END 
CNP i'N' 
BEQ TAL12B 
JHP TAL12A 
JNP TALLY 



i SEniNfe COMPLETED 
; IF NO, START 
: OVER ABAIN 



; iETUm TO MMITM 



BisPLfiY TEn-sTRiNe mim m $ I i 



8500 fiUTPUT 

6601 

AOOO 

BlOO OJTPl 

C903 

F007 

203416 ■ 
C8 

4C9513 

60 fflJTP2 



STfl 
STX 
LDY 
LOA 
CMP 
BEQ 
JSR 
INY 
JMP 
RTS 



HULP 

HJLP+1 

«$00 

(HULP),Y 

i$03 

0UTP2 

OUTALL 

OUTPl 



; 09 OF TEXT 

; ouTPUTiaMie^ 



48 
0941 
8D2105 
66 

4C8F13 



lA 

2fl2A 

OA 

204D 

2020 

2fl2fl 

OD 

CD 

OD 

OD 

OD 

OD 

OD 

OD 

OD 

OD 

OD 

OA 

IB 

IB 

16 

IB 

IB 

IB 

IB 

IB 

16 

IB 

IB 

IB 

203D20 



; ROUTINE TO SEND BSCm STRINGS VIA ACIA TO PRINTER 

ajTP3 m 



LDA «'A' 
STA 0UTFL6 
PLA 

JMP OUTPUT 



; SET WmS TO fiCIfi 



TEXT-STRINGS FOR DISPLAY i PRINTER 



TEXTO 



TEXTl 

TEXT2 

TEXT3 

TEXT4 

TEXT5 

TEXT6 

TEXT7 

TEXT8 

TEXT9 

TEXTIO 

TEXTl 1 

TEXT12 

TEXT13 

TEXT14 

TEXT15 

TEXT16 

TEXTi7 

TEXT 16 

TEXT19 

TEXT20 

TEXT21 

TEXT22 

TEXT23 

TEXT24 

TEXT25 



.BYT ilA,' 
• BYT 

.BYT *OA,$OD,' «««♦ 

.BYT ' MENU FOR TALLY 1612 ***** 

.BYT 

.BYT ' #«***#lHHHMHHHHHHH»»m' , $0D, $Ofl, $0A, $03 



PRINTER SETTING' 
,$OA,$OD 



IICH 
INCH 



.BYT $0D,'- 6 LINES PER 
.BYT *0D,'- 8 LINES PER 
.BYT iOD,'- 10 CHARS PER INCH 
.BYT *0D,'- 12 0«RS PER IUCH 
.BYT *0D,'- 15,5 CHARS PER INCH 
.BYT «0D,'- CHAR UIDTH dWRM/DOifflLE) 
.BYT $0D,'- SET LEFT MARGIN 
.BYT tOD,'- SET RIGHT MARGIN 
.BYT $0D,'- SET PAGE LENGTH 
.BYT $0D,'- SET TOP MARGIN 
.BYT *0D,'- SET BOTTOM MARGIN 

.BYT m,m,m,' 

.BYT *lB,$37,*30,i03 
.BYT *1B,*37,*31,$03 
.BYT *lB,*37,!>33,i03 
.BYT $1B,*37,*34,*03 
.BYT $1B,*37,*35,«)3 
.BYT *1B,*37,$37,$03 
.BYT $1B,*37,$38,$03 
.BYT *1B,*35,$31,$03 
.BYT $1B,*35,*32,$03 
.BYT *lB,i35,$33,$03 
.BYT $lB,$35,i34,$03 
.BYT $1B,*35,$35,«I3 
.BYT ' = ' ,*03 



',W3 
',«3 
',$03 
',$03 
',$03 
',$03 
',$03 
',$03 
',$03 
',$03 
',$03 
SETTINB OK ? : 



6 LPI 
8 LPI 
10 CPI 
12 CPI 
16.5 CPI 
NORMAL yiDTH 
DOUBLE UIDTH 

SET LEFT mwsm 

SET RIGHT MARGIN 
SEl P9££ LEHBTH 
SET TOP MARGIN 
SET BOTTSK MBR^ 



MONITOR ROUTINES 



6C00E0 ^IN 
6C06E0 OUTALL 
6C0EE0 CRLF 
6C1CE0 REDOUT 
6C56E0 OUTLOU 



JMP 
JMP 
JMP 
JMP 
JMP 

.END 



($E000) 
($E008) 
($EOOE) 
($E01C) 
($E056) 



HARM START OF MONITOR 
OUTPUT TO ACTIVE OUTPUT DEVICE 
CRLF TO ACTIVE OUTPUT DEVICE 
f£AD KEYBOARD AND ECHO CmRACTER 
SET OUTPUT DEVICE TO DISPLAY 



ERRORS: 0000 



<0000} 



3 7 



Ei^B 5 □ 3 



KEIMMER 



SLAVE 

0010 
0011 
0020 
0O30 
0040 
0050 

ooso 

0070 

ooao 

0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 

oiao 

0190 
0200 
0210 
0220 
0230 
0240 
0250 
0250 
0270 
0280 
0290 
03O0 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0450 
0470 
0480 
0490 
0500 
0510 
0520 
0530 



THE JUNIOR PROMOTING CY (y«J) 7JUL86 

0200 SLAVE ORG «0200 BOOTSTRAP LOADER 

THIS PROGRAM LOADS FILES WITH ID=01 AND FURTHER, 
IF FILE IS LOADED THE ID NUMBER WILL BE PRINTEDs 

FILES MUST BE IN NUMERICAL ORDER, 

USE THIS PROGRAM TO LOAD PATCHES (E.G. MICRO-ADE). 
PLACE THIS PROGRAM ON THE BEGINNING OF TfC TAPE 
AND THE PATCHES DIRECTLY BEHIND. 

AUTHOR : RONALD HERMENS, THE NETHERLANDS 

♦ CONSTANTS » 







OD 


OD 


NUMBER ♦ 


SOD 


THE t OF flVES XQVEfm 










* ROUTINES OF PM » 








02 


OB 


RDTAPE » 


*0B02 


REflD FILE FROM TAPE 






6A 


10 


RESALL ♦ 


*105A 


WARN START OF P« 






F3 


11 


PRSP ♦ 


$11F3 


PRINT A SPACE ON SCREEN 






F8 


11 


PRBUFS ♦ 


$11F8 


PRINT CURRENT ADDRESS t CONTENTS 






8F 


12 


PRBYT » 


«128F 


coNTEffil im mi m screen 










» POINTERS USED BY PM ♦ 






FA 


00 


POINTL » 


$0OFA 


QnnPPQS DnTMTFB 
nUl^nCoa rUlnlCn 






FB 


00 


POINTH ♦ 


POINTL 


+01 






79 


lA 


ID » 


$1A79 


ID OF FILE TO SE R^D 










» I/O ADDRESSES » 








83 


lA 


PBDD » 


$1A83 


DIRECTION REGISTER OF PORT B 






82 


lA 


PBD » 


$1A82 


DATA REGISTER OF PORT B 


0200 


A9 


01 




BEGIN LDAIM $01 


FIRST ID TO BE REflD 


0202 


8D 


79 


lA 


STA 


ID 


IN ID COUNTER 






vU 




LOOP LDXIM NUMBER 


cm IF ALL 


0207 


EC 


79 


IR 


CPX 


ID 


FILES ARE REflD 


020fl 


30 


15 




BHI 


END 


IF SO: BRANCH 


020C 


20 


02 


OB 


JSR RDTAPE 


OD A FILE 


020F 


20 


2F 


02 


JSR 


SETPIfl 


SET I/O FOR TERMINflL 














AND DISPLAY OFF 


0212 


AD 


79 


lA 


IDA 


ID 


PRINT JUST READ ID 


0215 


20 


8F 


12 


JSR 


PRBYT 




0218 


20 


F3 


11 


JSR 


PRSP 


SOME SPACE 


021B 


EE 


79 


lA 


INC 


ID 


INCREMENT ID COUNTER 


021E 


4C 


OS 


02 


Jl«> 


LOOP 




0221 


Ag 


00 




END LDAIM 


$00 


SET PM ADDRESSPOINTER 


0223 


85 


FA 




STA 


POINTL 


ON COLD START ADDRESS 


0225 


A9 


20 




LDAIM 


$20 


USER P.ROGRAM 


0227 


85 


FB 




STA 


POINTH 


( $2000 ) 


0229 


20 


F8 


11 


JSR 


PRBUFS 


PRINT AODRE^INTER 


022C 


4C 


5A 


10 


JMP 


RESALL 


SOTO PM 


022F 


A9 


7F 




SETPIA LDAIM 


$7F 


SET OUTPUTS 


0231 


80 


83 


lA 


STA 


PBDD 


FOR TERMINflL 


0234 


AD 


82 


lA 


LDA 


PBD 


SWITCH 


0237 


09 


58 




ORAIM 


$58 


MOTORS 


0239 


BD 


82 


lA 


STA 


PBD 


OF 


023C 


£0 






RTS 







Te koop org. Apple II+, 48 + 16 kb RAM, num. keyb., 80 
koll., 2 drives, serial port, monitor, Silentype printer, 
RS232 port, VIA (Centronics) par. ports, Veel softwaire wst 
zeer veel doc. (100+ disks: Assemblers, Forth, Lisp, 
Logo, Pascal, etc, etc). Veel boeken (assembly lang., 
technisch voor Apple) en tijdschr. (Micro, MBMe, Apple 
Orcliard; 100 + nwnmers). T.e.a.b, M, de Vries, 020-711253 
{ 's avonds). 



STEVE CIARCIA (A« rica) to 

iwf EHftTFiao {fmv^m 

The KIM-1 was a single board eicrocospu- 
ter that was fianufactured by MOS Tech- 
nology in tne late ig70'5. It features a 
2K ionitor ROM supporting a teletype and 
cassette interface, and had IK or RAM 
and a hex keypad on board. It had expan- 
sion capability to 64K with external 
cards, and was an extremely popular 
device. Many articles for expanding and 
sodifying the KIM appeared in the 1977 
and 197fl issues of BYTE and KILOBfllffl 
(later Microcomputing) nagazines. 
MOS Technology Inc., is now a division 
of Coaaodore Corp. and no longer aakes 
or supports the KlM. The Synertek SYM-1, 
and the Rockwell AIM were siiilar type 
conputers. 

A 9K BASIC was configured for the KIM by 
Microsoft Corp., and was distributed by 
Micro-Z Co., P.O.Box 2426, Rolling 
Hills, CA 90274 for $100. This included 
a cassette tape and coitplete docunenta- 
tion. 

The Ohio Scientific 0S-65D was an opera- 
ting systeo for their 6502 based co«pu- 
ters. Like aany of the pioneers in ti- 
croco«puters, Ohio SciM^rffiC 'iis no 
longer in business. 

My research ianager, Harv Ueiner. «ien- 
tioned that he had the KIM 9K BASIC and 
sone other cassette prograts that he 
Hould be willing to sell for 'any rea- 
sonable offer". If you are interested 
contact hit at 67 Scott Drive, South 
Hindsttr, CT 0607*. r. 

Steve Ciarcia, Ciarcia's Circuit Cellar, 
P.O. Box 582, Glastonbury, Connecticut 
06033. 



DID YOU PAY YOUR 1987 SUBSCRIPTION ? 



* » SCREEN FLIKKERING * f 



Byt (kndreN Brtgory, England. 

In issue No. 45 I found an article on 
how to todify the VDU-card to prevent 
screen flikker. Well, quite by accident 
I have found another solution which 
works on TTL LS or TTL HC versions at 1' 
or 2 MHz. All you have to do is replace 
the 74LS30 or 74HC30 (IC8) with a 74L30. 
This is probably not useful to itany 
people as the device is obsolete. I 
discovered this Hhen I Mas short of 
74LS30's and oppertanlstie«lly tried a 
74L30 instead. 



3 8 



SOS 



>ASS L 



ODOC- BE 60 10 
ODOF- 20 ID OD 
0D12- flD 62 10 
0D15- C9 OD 
0D17- DO 03 



0D19- 20 
ODIC- 60 



ID OD 



ODID- 29 7F 
ODIF- 8D 62 10 
QD22- ft9 FD 



0010 
0020 
0030 
0040 
0050 
0060 
0070 

ooao 

0090 
0100 
Olio 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0&60 
0670 
0680 
0690 
0700 



» TELEX PROGROMMO MCB 1984 * 
* Telex oroaramma voor de JUNIOR computer * 

DOOR: M.C. BREUKINK 

SCHQUTENDREEF 66 
2542 IM MN H006 

DIT PROGROMMO IS 6ESCHIKT VOOR EEN JUNIOR MET 

INTERFOCE-KflORT. HET ZET EEN OSCI I-KOROKTER 

IN DE OCCU OM NflOR BOUDOT EN PRINT DEZE OP 

EEN TELEX. DE BflUDOTCODE BESTOOT UIT 1 STORT- 

BIT. 5 DOTO-BITS EN 1 STOP-BIT. 

DE SNELHEID VON DE MEESTE TELEXEN LIST ROND 

DE 50 BOUD. IN DE PROKTIJK KOMT DIT MBER OP 

ONGEVEER 6 KOROKTERS PER SECONDE. 

BIJ HET OMZETTEN VON OSCI I NOOR BOUDOT WORDT 

GEBRUIK GEMOOKT VON EEN OPZOEKTOBEL. 

EEN CORRIOGE RETURN WORDT 2 MOOL OFGEDRUKT 

OONGEZIEN SOMMIGE OUDERE TELEXEN NOGOL WOT 

TIJD NODIG HEBBEN OM DE WOGEN VONOF HET EINDE 

NOOR HET BEGIN VON EEN REBEL TE BRENSEN. 



DE SERIELE DOTO KOMT VIO PBO NOOR BUITEN. TER- 
OP PBl EEN SCHOKELOOR WORDT OONGESLQTEN. WEL- 
KE DIENT OLS OON/UIT SCHBKELflflR VOOR DE TELEX 
(PB1=0 TELEX IS OON). 

DE TELEX KON NOTUURLIJK NIET ZONDERMEER OON- 
GESLOTEN WORDEN OP DE VIO 6522. DIT MOET GE- 
BEUREN VIO EEN (GOLVONISCH GESCHEIDEN ! ) IN- 
TERFOCE, WELKE 0.0. BESTOOT UIT EEN 20-60 mfl 
STROOMBRON. SCHEMA'S HIERVON ZIJN TE VINDEN 
IN DE BEKENDE ELECTRONICfl BLODEN. 



VIO 6522 ODRESSEN 



PBD 

POD 

PBDD 

PODD 

T2C/L 

T2C/H 

OCR 

IFR 



.DE $1800 
.DE $1801 
.DE $1802 
.DE $1803 
.DE $1808 
.DE $1809 
.DE $160B 



ORB/IRB INPUT/OUTPUT REG. "B" 
ORfl/IRO INPUT/OUTPUT REG. "0" 
DDRB DOTO DIRECTION REG. "B" 
DDRO DOTO DIRECTION REG. "0" 
T2 LOW-ORDER LOTCHES/COUNTER 
T2 HIGH-ORDER COUNTER 
ftUXILORY CONTROU^REBISTER 
JNTERRUPT py^ — 



TEMPS IN PlfN^ 



X/TEMP 
BOUDOT 
CYFLET 
X/SOVE 
SOCCU 



TELEX 



RETURN 



TPRINT 



.DE $105i 
.DE $1057 
.DE $1058 
.DE $1060 
.0E «1A62 



.BO $0D0C 

STX X/SOVE 
JSR TPRINT 
LDO SOCCU 
CMP #$0D 
BNE RETURN 
JSR TPilNT 



RTS 



OND #$7F 
STO SOCCU 
LDfl #*OFD 



: RED X-REGISTER 

: PRINT KflRftKTER 

: CARIA8E RETURN 7 

: JA. N06MAALS PRXNTIN 



RED ACCU 

PB0XUIT6AN& PB1>IN6AN6 



39^ 



0D24- 


80 


02 


18 


0710 




STA 


PBDD 






0D27- 


09 


01 




0720 




LDO 


#$01 




PB0=1 (RUSTTOESTOND) 


0D29- 


80 


00 


18 


0730 




STO 


PBD 






0D2C- 


ftg 


02 




0740 




LDO 


#2 






0D2E- 


2C 


00 


18 


0750 




BIT 


PBD 


• 


TELEX AAN ? 


0D31- 


FO 


01 




0760 




BEQ 


OK 






0D33- 


60 






0770 




RTS 








0D34- 


OE 


62 


10 


0780 


OK 


LDX 


SACCU 


• 


X=ASCI I 


0D37- 


EO 


60 




0790 




CPX 


#$60 


■ 


KLEINE LETTER ? 


0D39- 


90 


04 




0800 




BCC 


BIG 






0D3B- 


8A 






0810 


SMALL 


TXO 








0D3C- 


29 


OF 




0820 




OND 


#*ODF 




BIT 6=0 


0D3E- 


on 






0830 




TAX 








0D3F- 


8E 


55 


10 


0840 


BIG 


STX 


X/TEMP 






0D42- 


EO 


41 




0850 




CPX 


#$41 




LETTER ? 


0D44- 


30 


17 




0860 




BMI 


CIJFER 




ZONEE, TELEX OP CIJFERS 


0D46- 


EO 


5B 




0870 




CPX 


#$5B 






0048- 


10 


13 




0880 




BPL 


CIJFER 




ZONEE, TELEX OP CIJFERS 


0D4fl- 


00 


58 


10 


0890 




LDA 


CYFLET 






0D4D- 


C9 


FE 




0900 




CMP 


#*OFE 




TELEX OP LETTERS ? 


0D4F- 


FO 


08 




0910 




BEQ 


OUT 






0D51- 


09 


FE 




0920 




LDA 


#$OFE 




CODE VOOR LETTERS 


0D53- 


80 


58 


10 


0330 




STA 


CYFLET 






0D56- 


20 


6C 


00 


0940 


DOUT 


JSR 


OUTPUT 




CODE ~> TELEX 


0D59- 


20 


69 


00 


0950 


OUT 


JSR 


DUTCH 




ASCI I-BAUDOT-^TPJEX 


0D5C- 


60 






0960 




RTS 






0D5D- 


00 


58 


10 


0970 


GIJFER 


LDA 


CYFLET 






0D60- 


C9 


F6 




0980 




CMP 


#*0F6 


m 


TELEX OP CIJFERS ? 


0D62- 


FO 


F5 




0990 




BEQ 


OUT 


• 


JA. PRINT KARAKTER 


0D64- 


09 


F6 




1000 




LDA 


#*0F6 


- 


NEE. ZET TELEX OP CIJFERS 


0D66-- 


4C 


56 


OD 


1010 
1020 




Jl«> 


DOUT 






0D69- 


BD 


9E 


OD 


1030 


DUTCH 


LDA 


TABEL, X 


• 


ASCI I~> TABEL~>BAUDOT 


0D6C- 


an 


57 


10 


1040 


OUTPUT 


STA 


BAUDOT 






0D6F- 


02 


07 




1050 




LDX 


#*7 


■ * 


1 START 5 DATA 1 STOP 


0D71- 


00 


57 


10 


1060 


OUTBIT 


LDA 


BAUDOT 






0D74- 


80 


00 


18 


1070 




STA 


PBD 




80^>PB0 


0D77- 


20 


84 


00 


1080 




JSR 


DELAY 




DiL^Y 20 MS (50 BAUD) 


0D7fl- 


6E 


57 


10 


1090 




ROR 


BAUDOT 




wlMSnm bit .) 


0D7D- 


CO 






1 100 




DEX 








0D7E- 


DO 


Fl 




1110 




BNE 


OUTBIT 






0D80- 


OE 


56 


10 


1 120 




LDX 


X/TEMP 


m 


RESTORE X-REGISTER 


0DS3- 


60 






1130 




Its 

LDA 
















1 140 










0084- 


09 


00 




1150 


DELAY 


#*00 








An 




1 A 


1 1 P.0 




iBTA 


ACR 




RESET ACR REGISTER 


0089- 


09 


20 




1170 




LDA 


#*20 






ODSB- 


8D 


08 


18 


1180 




STA 


T2C/L 




LOW ORDER 


0D8E- 


09 


4E 




1190 




LDA 


«$4E 






0090- 


8D 


09 


18 


1200 




STA 


T2C/H 




HIGH ORDER. START TIMER 


0D93- 


09 


20 




1210 




LDA 


#$20 






0D35- 


2C 


OD 


18 


1220 


TEST 


BIT 


IFR 




TIME OUT ? 


0098- 


FO 


FB 




1230 




BEQ 


TEST 






0090- 


00 


08 


18 


1240 




LDA 


T2C/L 






0D9D- 


60 






1250 
1260 




RTS 
















1270 


: TPBEL VOOR DMZETTINe VAN ASCII mm 










1280 


m 










0D9E- 


FF 


FF 


FF 


1290 TflBEL 


.BY 


♦FF *FF 


♦FF ♦FF ♦FF ♦FF fFF ♦DS 


ODfll- 


FF 


FF 


FF 














00fl4- 


FF 


06 
















00fl6- 


FF 


FF 


C4 


1300 




.BY 


$FF *FF 


♦C4 ♦FF ♦FF ♦DO ♦FF ♦FF 


0009- 


FF 


FF 


DO 














OOflC- 


FF 


FF 
















OOflE- 


C8 


FF 


FF 


1310 




.BY 


♦C8 »FF 


♦FF ♦FF ♦FF ♦FF trf fPF 


OOBl- 


FF 


FF 


FF 














0DB4- 


FF 


FF 
















OOBS- 


FF 


FF 


FF 


1320 




.BY 


♦FF ♦FF 


♦FF ♦FF ♦FF ♦FF ♦FF $FF 


00B9- 


FF 


FF 


FF 














OOBC- 


FF 


FF 
















OOBE- 


C8 


EE 


CO 


1330 




.BY 


♦ca ^EE 


♦CA ♦Ea ♦CA ♦FA m mR 


ODCl- 


Ea 


CO 


FO 














0DC4- 


Ea 


CA 

















4 0 





OE 


E4 


F8 


1340 


Ar\PQ 


E2 


D8 


Cb 




r 0 


rH 






UULt 




r-r~ 


Eb 


1350 


KfUUl ~ 


PO 


n/i 
U4 


EO 






CO 
C.H 


r*c 








PP 


rO 


DC 


1360 


nnnQ— 






CP 

r L 


ODDC- 


E4 


F2 






ODDE- 


E8 


C& 


F2 


1370 


ODEl- 


DC 


D2 


C2 




0DE4- 


DO 


F4 






0DE6- 


E8 


CC 


D6 


1380 


0DE9- 


DE 


E4 


F8 




ODEC- 


D8 


FO 






ODEE- 


EC 


EE 


04 


1390 


ODFl- 


Cfl 


EO 


CE 




0DF4- 


FC 









1400 
1410 



. BY f Df f 14 *F8 *E2 *D8 *C6 *F8 $Ffl 
. BY iEC $EE «E& «C2 «]}4 f E@ 1^ SES 
.S¥ ^ fF© tl« «DC fDE $FC #£4 fF2 
. BY »E8 $06 $F2 tDC %m ^ Hm iF4 
.BY »E8 «CC tDS f 8E «E4 tPft tit IR} 
.BY $EC *EE *D4 »Cfl fEj? $CE fFC 

. EN 



SOURCE FILE: 
0000: 
0000: 
0000 : 
0000 : 
0000 : 
0000: 
0000: 
0000 : 
0000 : 
0000 : 
0000 : 
0000 : 
0028: 
00D7: 
FBCl: 
0000: 



SCREEN DUMP/BP 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



*** APPLE'S TEXT SCREEN COPIER *** 
flFDRUK VAN HET SCHERM 

MET PRINTER MATE PARALLEL INTERFACE IN SL0T#1 
ZONDER 6EBRUIK VAN PRttl 

BLANKO REBELS KUNNEN WOROEN m^P^l^f^N 

DOOR HANS BOSCH 
REELflflN 35 
7522LS ENSCHEDE 



.GEHEUBEN RUIMTE 

13 BASL EQU $28 

14 VLAG EQU $D7 

15 BASCALC EQU $FBC1 

NEXT OBJECT FILE NAME IS SCREEN DUMP/BP. OBJO 



BASIS ADRES 
SPAT IE MARKER 

BEREKEN BASIS ADRES VOOR LINE# 



IN A 



0300 

0300 

0300 

0302 

0304 

0306 

0307 

030A 

030C 

030E 

0310 

0312 

0313 

0314 

0317 

031A 

031C 

031F 

0322 

0323 

0325 

0327 

0328 

032A 

032B 

032D 

032F 

0331 

0333 

0335 

0337 

0339 

033A 

033C 

033E 



### SUCCESSFUL ASSEWM-Ys NO ERRORS 









17 




0R6 


*300 








18 








A2 


00 




19 


Start 


LDX 


#0 


AO 


00 




20 


NXTLIN 


LDY 


»0 


84 


07 




21 


STY 


VLA6 


BA 






22 




TXA 




20 


CI 


FB 


23 




JSR 


BASCALC 


Bl 


28 




24 


GCHAR 


LDA 


(BASL), 


C9 


AO 




25 




CMP 


#$A0 


FO 


02 




26 




BEQ 


PRINT 


85 


D7 




27 




STA 


VLAB 


18 






28 


PRINT 


CLC 




48 






29 




PHA 




8D 


00 


CC 


30 




STA 


*ccoo 


AD 


98 


CO 


31 


BUSY 


LDA 


$C098 


30 


FB 




32 




BMI 


BUSY 


AD 


90 


CO 


33 




LDA 


$C090 


AD 


98 


CO 


34 




LDA 


$C09a 


68 






35 




PLA 




C9 


OD 




36 




CMP 


#$0D 


FO 


12 




37 




BEQ 


TRYNXT 


2A 






38 




ROL 


A 


90 


OB 




39 




BCC 


CR 


C8 






40 




I NY 




CO 


28 




41 




cpy 


#$28 


30 


DB 




42 




BMI 


GCHAR 


A9 


OA 




43 




LDA 


#$0A 


26 


D7 




44 




ROL 


VLAG 


BO 


DD 




45 




BCS 


PRINT 


A9 


OD 




46 


CR 


LDA 


» 


10 


D9 




47 




BPL 


E8 






48 


trynxt 


INX 




EO 


18 




49 




CPX 


#$18 


30 


C4 




50 




BMI 


NXTLIN 


SO 






51 




RTS 





EERSTE RE6EL 
EERSTE KA8AKTE« 
(RE) SET VLA© 

BEREKEN BASIS ADRES 

HAAL KARAKTER Mm. SCHERM 
TO nTT cirfcWis&ff ' 



IS DIT fiff 
Hgg IISDII eODE IN VLAG 



PRINTER BUFFER 



CR? 

EINDE VAN REGEL (*Ofl>? 
VQL^NOE KABAKTER 

oiZE mm. miml 



JA, STUUl LP 

ALS VLAG BEN «:il 

NU NOG EEN CR 

V0L6ENDE RE6EL 
ALLE REBELS BEDAAN? 

KLAAR 



CODE BEVAT 



4 



El Ei s n s 



KEIMMEIR 



GAME 



High -Low game 



The abject o-f this game is to guess a number 
between 1 and 9999. The computer will tell you 
i+ your guess is too high or too low. 
1+ you want to give up, type in 0 for your guesK 
or just press RETURN. 

GOOD LUCK ! ! ! 

The game starts if the <ESC> key is hit 



Your 
Your 
Your 
Your 
Your 
Your 
Your 
Your 
Your 
Your 
Your 
Your 
Your 



guess? 
guess? 
guess? 
guess? 
guess? 
guess? 
guess? 
guess? 
guess? 
guess? 
guess? 
guess? 
guess? 



5000 
7000 
9000 
8000 
8500 
8300 
8400 
8450 
8470 
8460 
8457 
8458 
8459 



Too 
Too 
Too 
Too 
Too 
Too 
Too 
Too 
Too 
Too 
Too 
Too 
You 



1 ow 
1 ow 
h igh 
1 ow 
h igh 
I ow 
1 ow 
1 ow 
h i gh 
high 
1 ow 
low 
found 



it 



You needed 13 turns. 



Another game (Y/N) ? Y 



SCR 40 

0 ( HIGH-LOW GAME DECLARATIONS ) 1 . 

1 < Simple game written by A.G.Megens 861024 ) 

2 0 VARIABLE NUM 0 VARIABLE INP 

3 0 VARIABLE RND 0 VARIABLE TS 

4 0 VARIABLE LEW 0 VARIABLE TURNS 

5 HERE RND ! 

6 : HIGH 10 LEN S - SPACES ." Too high" ; 

7 : LOW 10 LEN d - SPACES . " Too low" ; 

8 : OK 10 LEN e - SPACES ." You +ound it !!" 7 EMIT CR CR 

9 ." You needed " TURNS S . ." turns." CR i 

10 : QUEST CR . " Your guess? " 7 EMIT ; 

11 : ANOTHER CR CR ." Another game (Y/N) ? " 7 EMIT 

12 BEGIN KEY TS '. TS S 78 = TS 0 89 = OR UNTIL TS EMIT ; 

13 : RANDOM RND S 31421 6927 + DUP RND ! ; 

14 : CHOOSE ( Ul U2) RANDOM U* SWAP DROP i 

15 — > 

SCR II 41 

0 < HIGH-LOW GAME INPUT ) 2 . 

1 { this input routine accepts digits 0-9, RUBOUT and RETURN 

2 < Call INPUT, result is stored in variable INP, length is 

3 ( stored in LEN, variable TS is last typed character. 

4 ( Note: FORTH works with 16 bits numbers, so maximum number 

5 t you may type in Is else It will be negative. 
6 

7 ; INPUT 0 INP I 0 LEN ! 

8 BEGIN KEY TS ! 

9 TS e 95 = IF LEN S 1 < IF 7 EMIT 0 TS ! 

10 ELSE 95 EMIT -1 LEN +! 

1 1 im m 10 / im ? then 

12 ' THEN 

13 TS e 47 >. TS e 58 < AND IF TS S EMIT -48 TS +! 

14 1 LEN +! INP e 10 * TS e + INP ! THEN 

15 TS e 13 = UNTIL I --> 



If 



2^f5i 5 D S ^^'^^^p^ 

SCR 42 

0 ( HIGH-LOW GAME INFO ) 3 i 

1 : INFO CR CR 



2 10 SPACES . » High-L©w CR 

3 9 SPACES . " — ept CR 

4 . " The object of this game is to guess a number " CR 

5 ." between 1 and 9999. The computer will tell you " CR 

6 ."if your guess is too high or too leWk * Clt 

7 . " If you want to give up, type in 0 for your •puMMkc* CR 

8 ."or just press RETURN." CR CR 

9 . ■■ GOOD LUCK ! ! ! " CR CR 

10 ." The game starts if the <ESC> key Is hit.. " 

11 7 EMIT i ■ 
12 



13 : STUPID CR ." Maximum is 9999, DUMMY!!" 7 EMIT J 

14 : GIVEUP CR CR . » The secret number was " NUM fi . CR 5 
15 

SCR « 43 

0 ( HIGH-LOW GAME MAIN LOOP ) 4 . 

1 : GAME BEGIN 



2 0 TURNS ! INFO 

3 BEGIN RANDOM DROP KEY 27 = UNTIL CR CR 

4 BEGIN 9999 CHOOSE NUM ! NUM S 0 > UNTIL 

5 BEGIN 

6 QUEST INPUT 1 TURNS +! 

7 LEN @ 4 > IF STUPID 10000 INP 1 THEN 

8 INP e 0 > IF INP e NUM @ < IF LOW THEN 

9 INP @ NUM @ > IF HIGH THEN 

10 THEN INP S NUM & = INP S 0 = OR 

11 UNTIL INP e 0 = IF QIVEUP ELSE OK THEN 

12 ANOTHER TS e 78 = 

13 UNTIL m t 



NET VRUE VOLK OINSOAG 11 NOVEMBER 19M 




De her en van Opbroek en Van Pelt in het zenuvacentrum mn kun c&mpMterchtb. 
(Foto Persbureau Jota) 
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5 5 D i5 



EOLUHNS PRINT 



22A4 C9 OC 
22ft6 FO 07 



for printing in two coUutm (i.fx. 
fro*, '^oniprocesior or ^SSlii). The 
pr inter-niitiilising-routme tust: 
L seri'j .roRderiseJ pitch, set leit 
urgiri (04), set horizontil tabu- 
lator (7(1), 2. change printer out- 
vector to this roatine, reset buf- 
ierpointer, set flag^OO, 
The processor tust send tOC at the 
end of each page, and finish the 
hit piqe Hith If's and send iOC, 
iOl at the end of text. 

Leif i^asiussen, Farkvej I 
4534 Htrife dinurk 



CMPIM IOC 
BEQ PTSP 



end of colluin; 1,1,5,,,? 



mi' mm incrptr inc neptr 



22AA 


DO 


02 




BNE RETUR 


22AC 


E6 


OF 




IMC HEPTR m 


22AE 


60 




RITIW 


RTS 








1 


PREpm 10 STuiti pumm i 


22fiF 


C6 


DD 


PTSP 


DEC FLAG to tfF - printing 


22B1 


20 


EB 22 




JSR RESETHE reset letsr y-ffliBter 


22B4 


DO 


U 




BNE LCTP fi iff f fWt UH I tie 








1 


pmm m mr leh im ' t 


22B6 


20 


A3 22 


PFNLL 


JSR iNCRPTR 5^10 Od,OH 


2289 


20 


AB 22 




JSR INCRPTR 








I 




22BC 


Bl 


DE 


LC7P 


LBfilT git cfcar. im buiftr 



COLUMNS PRINT 

22BE C9 OD 
22C0 FO OC 
22C2 C9 OC 
22C4 FO EB 
22C6 20 DO 22 
22C9 20 AS 22 
22CC 00 EE 



22CE m m 



CHPIM $0C 
BEQ RETUR 
JSR CENTRO 
JSR 
BNE 



ei4 9t lite 7 

ni of left colm ? 



print character 
INCRPTR 'incretent pointer 
LCTP get next cbr. 



I 



pmAn m mm um 



PFRL LDAIH $09 send tab. (70) 

I sm CHmcm to PRium i 



22D0 8D 63 23 CENTRO STA 
22D3 20 m F? m 
22U &0- RTS 



AHOLD send to printer 
CENTRON 



I 



film coLiim IS pmm 



tm 




0R6 


*229B 








TIL 


mmns pmi 


22D7 C9 03 










22D9 FO 17 


2363 


AHOLD 


EQU 


f2363 holds character 


22DB 48 


F7B0 


CENTRON EQU 


fF7B0 send chr , to printer 


22DC 20 DO 22 


OODD 


FLAG 


EQU 


m -00 if save,='ff if pritt 


22DF 68 


OODE 


HEPTR 


EQU 


$DE pointer to buffer 


22E0 C9 OA 


C800 


HE 


EQU 


tCSOO buffer for left celitn 


22E2 FO 02 










22E4 C9 OC 










Tmm 01 










22E8 m 




1 


HM» EHmm I 






i ' 


ti^mmmiiit^i'^ — ^ i 




229B A4 DD 




LDV 


FLAG -00 nhen saung 


22E9 E6 DD 


229D FO 03 




BEQ 


LCTM left coiusn to leiory. 




229F C8 




!NY 


flag^ff nhen printing 




22A0 FO 35 




BEQ 


RCTP colutns to printer. 










22E6 A9 C8 




I 


im (mm n mm i 


22ED 84 DE 










22EF 85 DF 


22A2 91 DE 


LCTH 


STAIY 


HEPTR save char, in buffer 


22Fi 60 



RCTP 



CMPIM $03 
BEO PROLC 
PHA 

JSR CENTRO 
PLA 

CHPIM *0A 
BEQ PFNLL 
CMPIM *0C 
BEQ PFNP 
RTS 



e»d of text 7 



t 

PFNP 
I 



neti line ? 
new fige 7 
return to precesser 

'■m^ mmm-mi i 

INC FLAG to m : save left coluifi 



RESETHE LDAIH HE 

STy HEPTR 
STA HEPTR 
RTS 



I25i 

m 



1 



PRm REST OF LEFT COLilM 



1 



22F2 Bl DE 
22F4 C9 OC 
22F6 FO D8 
22FB 20 DO 22 
22FB 20 A8 22 
22FE 00 F2 



PROLC LDAIY HEPTR 

CMPIM IOC if end of text, print 
BEQ CENTRO fori feed Mi return. 
JSR CENTRO 
JSR INCRPTR 

BNE PROLC illuip, get next cAar. 



>>> Error in 0000 statenentCs) 

»> Op-Code: tBOOO - $BOM / «229B - I22FF / 0101 Bytes / 01 Pag. 
»} Assiibled by 1^114 / 3.4 



E^B 5 □ S 



K E M M E R 



10 
20 

36< 



to 
m 

90 

100 

110 235F= 
120 236U 
130 2363= 
140 E7CD= 
150 E7DB= 
160 E7DD= 
170 E7DE= 
180 006C» 
190 F7B0- 
200 

210 16000 " 

220 

230 BOOO 18 
240 BOOl ADCDE7 
250 B004 6DDBE7 
260 B007 856C 
270 B009 ADCEE7 
280 BOOC 6DDCE7 
290 BOOF 856D 
300 BOll AEDEE7 
310 B014 2047B0 
320 B017 201EB0 

sm WIS mrr 

350 BOID 60 
360 

370 BOIE 8E5F23 

380 B021 ACDDE7 

390 B024 8C6123 

400 B027 AOOO 

410 B029 B16C 

420 B02B 205EB0 

430 B02E E66C 

440 B030 DOOC 

450 B032 E66D 

4fi0 B034 A56D 

<41Q B036 2907 

is0 mm 18 



;Hardcopy routine for Octopus 

;By: Coen Boltjes 015-136812 Vidibus 400029830 

;For Junior: Use the (addresses) 

;The routine PRCHA is printer dependent. 

;The first prints only ASCII characters, and 

!can be used with all ASCII printers. The 

;secpnd is an exam^Xe of a routine which also 

jcan print the VIDEOTEX block grafiea. 



;VARIABELES 
XHOLD =$235F 
YHOLD =$2361 
AHOLD =$2363 
FLN =$E7CD 
RAMBEG=$E7DB 
CHAPLN=$E7DD 
LPSCR =CHAPLN+1 
RAMPTR-$6C 
CENTR0-$F7B0 
I 



;($EFCO) 

;($EFCE)START VIDEO 
;($EFDO)#CHAR./LINE 
;#LINES/SCREEN 

;($F3E2) 



HRDQO ^ ■ 

LDA FLN 
ADC RAMBEG 
STA RAMPTR 
LDA FLN+1 
ADC RAMBEG+1 
STA RAMPTR+1 
LDX LPSCR 
HRDCOl JSR CRLF 
JSR PRTLN 
DEX 

BNE HRDCOl 
RTS 



PRTLN 



P8TLN1 



STX XHOLD 

LDY CHAPLff • ' 

STY YHOLD 
LDY #$00 
LDA ( RAMPTR ),Y 
JSR PRCHA 
INC RAMPTR 
BNE PRTLN2 
INC RAMPTR+1 
LDA RAMPTR+1 
AND #$07 

cm 



; LINES PER SCREEN 

; START NEW LINE 

; PRINT LINE 

;=>NOT LAST LINE 



?mm I mm 

;SAVE # CHARACTERS 

;GET CHARACTER 
SPRINT IT 



490 B039 
.500 B03C 
510 B03E 
520 B041 
530 B043 
540 B046 
5S© 

560 B047 
570 B04A 
580 B04C 
590 B04F 
600 B052 
610 B054 
620 B057 
630 B05A 
640 B05D 
650 
660 

670 B05E 
680 B060 
690 B062 
700 B064 
710 B066 

720 mm 
730 soee 

740 

750 
760 
770 
780 

790 B06D 
800 B06F 
810 B071 
820 B073 
830 B075 
840 B077 
«S0 B079 
8^ B07B 
870 B07D 
880 B07F 
890 B081 
900 B083 
910 B085 
920 B087 
930 B089 
940 B08B 
950 B08E 
960 B091 



6DDCE7 


ADC RAMBEG+1 




856D 


STA RAMPTR+1 




CE6123 PRTLH2 


DEC YHOLD 


;0NE CHAR DONE 


D0E4 


BNE PRTLNl 


;=>LINE NOT FINISHED 


AE5F23 


iM Mil 


{SESTratE # UNES 


60 


RTS 




8E5F23 CRLF 


STX XHOLD 




A90A 


LDA #$0A 




oD0323 


STA AHOLD 




20BOF7 


JSR CENTRO 


' »■ . . r - 


A90D 


LDA #$0D 


' , ; - ■ 


8D6323 


STA AHOLD 




20B0F7 


JSR CENTRO 




AE5F23 


m. SIPLD 




60 


, ■' 


;0nly prints codes $20- 


-$7F. Others atf B a^aieei 


3004 PRCHA 


BMI PRCHA 1 


;=>GRAFICS 


C920 


CMP #$20 




1002 


BPL PRCHA2 


;=>NORMAL CHARACTER 


A920 PRCHA 1 


LDA #$20 




8D6323 PRCHA2 


STA AHOLD 






JSR CENTRO 




m.. 


RTS 





5PrW» «4f codfts using EPSON MX-80 format 
rand VIDBOmT-BodlficattQina of Immm 4? 
;Ifef b« adjusted "for other configuration* 



10F7 mem 

297F 
C920 
DOEF 
A9DF 
D012 
1010 
49FF 
291F 
09C0 
D008 
C920 
1004 
291F 
09A0 

8D6323 PRCTA3 

20B0F7 

60 



BPL PRCHA2 
AND #$7F 
CMP #$20 
BNE PRCHA 1 
LDA #$DF 
BNE PRCHA3 
BPL PRCHA3 
EOR #$FF 
AND #$1F 
ORA #%11000000 
BNE PRCHA3 
CMP #$20 
BPL PRCHA3 
AND #$1F 
ORA #%1 01 00000 
STA AHOLD 
JSR CENTRO 
RTS 



;=>NORMAL CHARACTERS 
; NORMAL CHARACTERS 

;=>N0 BLOCK 

;=>ALLWAYS 



ONLY GRAFIC INFO 
ADJUST FOR EPSON-CODE 
->ALLWAYS 

;->N0 COWAND CHARACTER 
jONLY GRAFIC INFO 
jADJDST R3R EPSOK-G0DE 



100 REM File merge S -split program version 2.1 

110 REM For Octopus/DOS-Junior 

111 Tel. 015-136812 
130 iffir • ' ^ Vidibus 400029830 
140 REM Why a new File-Merge program? 

150 REM l)This program don't use an obj|ectco4e file, 
160 REM so it Cilia -be ran m. S •■SBiftWaias^* M&grmm, 
170 REM 2)This prSfraiS litJt ■WiS'^'^afe fim-mie M >'■ 
180 REM memory. So larger files can be merged, m^.: 
190 REM the execution is faster. 
200 REM 3)A file split option is ii^leraented too. 
210 REM 4)By using DOS-CommandS instead of POKE's 
220 REM the program is easyer to understand, and 
230 REM to adapt. 

240 REM When the program is used on a Junior "GO F71D" 
250 REM in line 630 must be changed into "GO FEIB" 

260 REM The "ME D800 " must be changed into a value 

270 REM where RAM is present. 

280 REM When using the SPLIT option you have to give the 

290 8M first and last line sepemted by a "-" 

300 D1SK!"ME D800.D800":8H* Stt f^flfr POINTER 

310 DI$="DISK!"+CHR$(34) 

J20 INPUT "S)plit or M')6rge ";A$ 

330 M0=0 

340 IF (A$="S"0R A$="s-") THEN M0=1 
350 IF (A$="M"OR A$="m") THEN M0=2 
360 IF M0=0 THEN PRINT CHR$(7):G0T0 320 
370 GOSUB 510: REM LOAD FIRST FILE 



380 PRINT#5, "tIST#5"; 

390 IF M0=2 THEN GOTO 420 

400 GOSUB 560: REM'^^ 'SBLBWOS 

410 GOTO 440 

420 PRINT#5, :REM CLOSE LINE 

430 GOSUB 600: GOSUB 510: REM SECOND FILE 

440 PRINT#5, "PRINT#5, ";CHR$(34);"Dm!"; 

450 PRINT#5, CHR$(34);";CHR$(34);"; 

•ftji©jBttNT#5, CHR$(34);"I0 01,01";CHR$(34) » 

4?0 *81NT#5, DI$;"ME 9000, 9000" ;CHR$( 34) 

480 DISK! "ME D800,Si^";tai SET ^pSE 

490 DISK!"I0 10,01" " 

500 END 

510 INPUT"Which drive ";D$ 

520 INPUT"Which file ":F$ 

530 PRINT#5, DI$;"SE ";D$ ■■ ' 

540 PRINT#5, DI$;"LO ":F$ 

550 RETURN 

560 INPUT "List FROM-TO "!A$ 
570 PRINT#5, ", ";&$ - ■ 
580 PRINT#5, "NEW" 
590 RETURN 

600 PRINT#5, :PRINT#5, "REM ";CHR$(34); 
«p:*8INT#5, "*** Place next disk, and uress 
mS HfiMTIS, "any key to continue ***" 
630 mm»5, "DISK!":CHR$(34);"G0 F71D" 
640 RETORff 
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SKIR>PIN6 AROUND 



Anyone ai us Hho is buiUing and expanding his m coiputersystn 
|{!t face 8 iDient that hv (or she '') has to buy or order the neccesiry 
loiponents.As He here in Holland Mill ahays try to pay less and 

Set lore I spended soie tiie to check Nether ly local shop itas the 
est deal for a larger project. As exaiple I used the EC m card 
together with the neii I/O card as published by Elektor in special 4 int 5 
For a good reference I selected ttto shops each in Holland and Gerian/ 
;nd one shop in England and Belgiui, 

In the first coloi you can find the part list as published by Elektor 
mi in the otktr cdIdu thi i nmm rtspi. 

t» tkt MtktrliRtfs W.l;TIKTRONI)(,tel 050-140937 

HL2:«EEK IT/6DRIS,tel 015-130489 

In Geriany SI :RATEV ELEKTRONlK.tel 02102-42051/52 

h irnt IritUiis 6I|:TEM7IC LU,U1 01-20IU77 
Id Beljim II iMK ,Tft ^-2382352/93 

All prices is local currency i' 



CPU CARD 



NL! XL2 01 D2 8B1 Bl 



R1,R2 :470 
R3,R9,(!10,R16 ;3K3 
R4,R8,R11...R:4,R17:2K2 



R5.R4,R7 
R35 



CI 

C2,C4,C5 

C3,C6...C1S 

Cli 



D1...I3 

T! 
ICl 
IC2 
IC3 

IC4,IC7 
ICS 
IC6 
ICE.. 
ICll 
IC12 
IC13 
IC14 
IC15 
IC16 
IC17 
K18 
IC19 



m 



0.20 
C.40 
0.70 
0.30 
0.10 



0,20 
0.40 
0.70 
0.30 
0.10 



0.18 
0.36 
0.63 
0.27 
0.10 



0.20 
0.40 
0.70 
0.30 
0.10 



n.a. 
n.a. 
n.a. 
n.a. 
n.a. 



;12 PF Ker. 0.15 

:330 N 1.95 

;100 N 3.85 

:l0u/12V Tantal 0.70 



0.30 0.25 

1.80 1.35 

5.50 4.95 

0.50 1.65 



ICIO 



:hsch 1001 ihp) 

:2N2222 

;74LS04 

:74LS93 

■.74F74 

;74F00 

:74F04 

:74LS125 

;74F245 

:ME555 

:74LS74 

:74LS00 

:74S30 

:74F373 

:74F138 

:74S2iO 

;65SC816P2 

:2716 EPROH 



XI :8 mi 

64 pen nale din 41612 
Connectorstrip lrDN,!2pin 
Connectorstrip 2roM,30pin 
to ttoFtctttttmttKter 



n.a. 
0.90 
0.95 
1.75 
n.a. 
n.a. 
n.a. 
1.50 
n.a. 
1.10 
1.35 
0.95 
1.65 
n.a. 
n.a. 

I. 85 
n.a, 

II. 95 
4.95 
5.95 
n.a. 
3.95 
2,30 



n.a. 
1.25 
0.95 
1.95 
9,50 
2.40 
1.20 
1.85 
12,00 
1.10 
1,40 

fl.rs 

2.50 
3.00 
2,00 
2.00 
79.50 
14.95 
6.95 
4.95 
3.95 
4.50 
B.00 



n.a. 
0.90 
0.90 
1.05 
1.85 
3.50 
1.75 
1.15 
23.70 
1.10 
1.00 
0.65 
n.a. 
6,45 
3.55 
2.40 
n.a. 
8.90 
2.10 
2.15 
2.50 
5.00 
2.70 



n.a. 
0,35 
0,59 
1.24 
1.78 
2.56 
1,28 
1,18 
3,54 
0.78 
0.88 
0.55 
1,28 
3.68 
1,98 
n.a. 
n.a, 
9.95 
2.28 
2.98 
3.48 
i.98 
2.20 



n.a. 
0.30 
0.24 
0.54 
0.70 
1.00 
0,50 
0.50 
14,25 
0.22 
0,35 
0.24 
0.50 
4,00 
1,80 
1.00 
n.a. 
3,50 
1.50 
2,25 
1.10 
1.95 
B.a. 



2.4 
4.8 
8.4 
3.6 
1.2 



0.08 R.a. 2.5 

1.47 n.a. 30.0 

3.19 n.a. UD.O 

0.39 n.a. 20.0 



n.a. 
19,0 
25.0 
42,0 
65.0 
112.0 
56.0 
39,0 
1785.0 
30.0 
32.0 
25,0 
38.0 
295,0 
132.0 
95,0 
n,a, 
365.0 
150.0 
90,0 
35.0 
180.0 



PfiPERHflRE SERVICE (ENGLISH VERSION) LIST OF PRICES 



All prices including forMarding c^tarces, etc. 
fill prices only far European {C.E.P.T.»-^«HWirie9. 

NEU : 

KICRO-UARE AsseMbler/Oisasseabler/Editor far 6502 
Manual for Elektor's QCTOPUS/ECfiS-comptttir. \ 
Docudented by Hare Lachaert, Belgiui. ' . 
Seni cheque of Hfl. 49,50 to M.L.v.Pelt (mhsmim 40, OS) 

NEy: 

MICRO-HflRE flsseftbler/DisassesDler/Editor far 6] 
CoMpIete Source-listing for Elektor'i 
Ddcoaented by Marc Lachaert, Belgium 
Send cheque of Hfl. 74,90 to U.L.v.Pelt 

EXTENSIONS ON 0S-65D V3,3 FGR BmW9 
Sert Klein, 'he Net'ier'ands. 

Dutch version published in DE 6!^ !<€»aiER nr.39, %g.*85. 
With the new DOS-co«i»ands : 

DI to supply the direc*;ary o* a d;5^ette, 5D to replace 
the old DI cotmand in 0S-65D, FO to ^orinat a diskette aid 
to write an e«pty directory to track 12, CR to write a 
filenaitie into the directory wif? trackrange to natch, D£ 
to delete a filename froivi fie directory, CH 
filename! into fiiena«e2, nu to supply the 




tracks by the Basic of asseioDly sourcefjle, 
co«i*and5 for further extensions: FT to load 



to change 
nuffloer of 

With four 

t*)e FOR^H 

i^iterpreteif/ewpiler, to wac^n^'art. tne FORTH, Mfl to 
load the (macro assembler by C. Hsec, WS to warmstart He 
'oser-assembler. 

Complete English assemb'v source 'istir.Q with introduction 
for users of JUNIOR, but easy to adapt on you- OCTD^^JS. 
Send cheque of ^^f!. !7,50 to U.L.v.Pelt (eurocheque 9,0C1> 

«ICRO-WflRE Assembler/Editor with baniit-switching 
Complete source-listing (DisasseiAler mI included) 
Autnor: Fernando Lopes Portugal. 
Syste«: Elektor's JllNIOR-computer witi VDU and 0S65-D 
With neti coMBrals: PUT FILE PUT TT, LOAD FILE, LOAD T^, 
toggle Centronics flag, return to kernal, and modified 
error routine, and new subro'jtines DECBPF, INCBPF, S£TDi<l- 
SETSC-SETPF, PRTDAT to read data and time from tie Real 
Time Clock and to print it in the header lines. SETBKO- 
5MAPDN-SAVBNK-RSTBNK to Manage the bankswitching, LM 
NUMBERS. 

Refer : DE 6502 KENNER, Way 1986 p.i4-47 

Hardware article Bank Switching for fie JUNIOR- 
computer" by Fernando Lopes Portugal. 

Send cheque of Hfl, 45,00 to W.L.v.Pelt (eurocheque 35,50) 

DATBAS. A database-program written in Basic for Elektor's 
JUNIOR-coiputer with v6u-card .ffll WiifeiWiific OS-S^ | 
V3.3 disk operating systea. 

Jan van Heuven, The M^herlam^, >todif ied by Femandii j 
Lopes, PortuMl. 

Send cheque ^ «fL 3&,W %mLtMt (eurochequt ^,501 
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m for thi I/O OTi tki fDlloNiiig: 



Rill ill 
R9 

Rig 

Rll...Rt4,lt7,Rll 
R19 tril 



£1 
C2 

C3,£5..C7,C9.C10 
e4,C8,Cll,C12 



m 



:22pf kir. 
:10...40 pf 
:100 N 

imn^ tut. 



14 

115 • 

T1...T3 

ICl 

IC2 

ICS 

IC4,IC£ 

ICS 

IC7 

ICB 

IC9 

Ml 



mm 
mm 

SHSCH IMKlf) 
j;iR45 

:mse2 

:74L8i88 

:74LS0O 

:74L8Z7 

:NC14i8i8 

!i931 

:14I8 



imi or 6821 



0.B0 


0.80 


0.72 


0.80 


R.a. 


9.6 


M 


0.10 


0.09 


0.10 


R.a. 


1.2 




0.10 


0.09 


0.10 


R.a. 


1.2 




0.60 


0.54 


0.60 


R.a. 


7.2 


9.10 


0.80 


0.69 


0.55 


R.a. 


12.0 


fi.lO 


0.15 


0.12 


0.10 


R.a. 


1.2 


11.30 


0.30 


0.27 


0.30 


R.a. 


3.6 


0.15 


0.30 


0.2S 


0.08 


t.a. 


2.5 


0.90 


1.25 


liiO 


w 


R.a. 


23.0 


2.10 


3.00 




R.a. 


60.0 


2.80 


2.00 




m 


R.a. 


80.0 


f.]$ 


IJT 


iS.09 
0.45 


0.10 


0.12 


30.0 


t*i. 


1.50 


R.a. 


R.a. 


R.a. 


R.I. 


R.a. 


R.a. 


R.a. 


R.a. 


R.a. 


R.a. 


1.80 


1.29 


0.57 


R.a. 


R.a. 


H.i. 


4.00 


7.90 


3.98 


4.75 


595.0 


0.95 


0.95 


0.65 


0.55 


0.24 


25.0 


r.90 


8.00 


5.55 


4.98 


3.50 


199.0 


1.80 


1.30 


1.10 


0.24 


25.0 


1.05 


1.10 


0.65 


0.64 


0.24 


25.0 


26.60 


27.95 


24.80 


R.a. 


R.a. 


495.0 


16. SO 


15.95 


13.40 


13.30 


6.00 


495.0 


2.75 


1.45 


2.17 


1.68 


0.60 


50.0 


2.75 


1.45 


2.17 


1.68 


0.60 


50.0 


14.30 


19.00 


9.00 


8.68 


5,60 


290.0 


R.I. 


1.70 


4.95 


1.75 


1.00 


150.0 


1.95 


7.15 


2.10 


11.50 


2.25 


150.0 


5.95 


4.95 


2.15 


2.98 


2.75 


90.0 


7.90 


9.00 


5.00 


3.92 


3.90 


200.0 


0.25 


0.80 


0.27 


0.22 


R.a. 


R.a. 


R.I. 


29.30 


R.a. 


Rit. 


R.a. 


230.0 



I m 

U piR nil liR 41612 
iiRRictoritrlp 2 row 72 piR 

tgrtcutconRictor 
m battiry 3.6V/100 iMi 



lit 111 thi ihopi could Dffff M tht coipliti Hit UKial thi Skotky 
gl^^l^^lKTlit 658C816tu bi obtaiiN itlbt IH iMilNOffici 



H IR eii fH I lift tki prici Df tki tio crapoRMtplatei otft «r 
iii M: licauii You cir ordir tkn directly at Elektor in W» 
mm^,Wm tke 65SC816 li Rot yet avai&Ie Ir mt of tke storei, 
II rott in iiteHted belt to cill 6T£ office ii Yoir our couRtry. 

The shops selected Nhere ckoisen because of the advertiseients in 
Elektor Nick lade tke iritiRj of the story easier. As everybody has 
realized duriR; the last years the prices of electronic spareparts 
are fluctuating very strongly.Date of the a.i. prices is july 1986. 

Ul mt^d prices are included VAT .For ordering parts froi a 
iiffffflft CMRtry sttbstrKt VAT «d adi sbippii^ nd cutoi taxes. 



Systea 
Publ. 



CBfrUONICS PRINTER IMTERFflCE DEVICE 4 OR 5 ON COHNODORE 64 

Ruud Uphoff, The Netherlands. Machinecode. 

Send cheque of Hfl. 15,00 to H.L.v.Pelt (eurocheque 5,50) 

THE VDU CARD 

Article to assure that Elektor' s VDU card wrks Mil. 
SoftHare (tachinecDde) Hith introduction. 
Many mbers of the club m this softiHiv tostetd of the 
software fro« Elektor. 

Authors: J. J. A. and J. A. J. Jamm, The Nttherlanite. 
Transl. : Wille* van Asperen. 

Elektor' s JUNIOR coiputer Nith VDU card. 
DE 6502 KENttR 31, Apr. 1984, p. 17-26. 
s if m» 19.00 to H.L.v.Pilt tnrochei)tte 9,50) 

THE GRAPHIC DISPLAY 

Article with scheeatic diagraa to do graphical Hork (plot- 
ting of graphs etc.) together with Elefctor's Cird. 
Authors: J. J. A. and J. A. J. Janssen 
Transl.: yillea van Asperen 
Systei : Elektor' s JUNIOR coaputer with VDU card. 
Publ. : DE 6502 KENNER 36, Febr. 19B5, p. 5-11 
Send cheque of Hfl. 14,50 to W.L.v.Pelt (eurocheque 5,00) 

M0N65/D0S65 is the new systet of our club, build with 
Elektor's CPU^ VDU, RA«-cardi and ow prillMionil FDC 
controller card, for 6S02 or 65C02. 
F«f aam itHmStimt urite to E.J.M. Visschedijtt 

Drakensteyn 299 
NL - 7608 TR ALNELO 
Source-listings of the ionitor and the disk operating sys- 
tea, complete with cotnents already in English language. 
Hardware description English version, translated by 
Altert v.d. Beukel, ThelMirteli,, and corrected ftrr 



li iveilrtle on 



drew Bregory, Englandu 
DOS;iunual to be |fmlii|i Mtt. Ikl 
diskette. 

Monitor-eanual to be translated soon. 

Editor-tanual to be translated soon. 

For those who want to be inforeed about the hardware first 

It is possible to order for the hardware description, only 

the English version. If wanted: 

Send cheque of Hfl. 29,50 to H.Lv.Pelt (eurocheque 20,00) 

TOKENIZED Microsoft Basie %iitr«fs end tddresses V!C'20 

CoMiodore Basic V2. 

Nico de Vries, The Netherlands. 

Send cheque of Hfl, 14,50 to H.L.v.Pelt (eurocheque 5,00) 

PATCHES ON KIM-1 MICROSOFT BASIC FOR ELEKTOR'S JUNIOR-cOip 
Koen van Nieuwenhove, Belgiu«/U.L. van Pelt, The Netherl. 
Hith PMODE. TRACE, STEP RESET, PRINTER P6., VIDEO, AUTO, 
RENUMBER, ilATASAVE, EDIT LINE, fepPEND. 
Send cheque of Hfl. 24,50 to {l.L.v.Pelt (eurocheque 15,00) 

HINTEXT Basic Texteditor 
for Elektor's JU<IIOR and OCTOPUS-conputers 
Author : M. R. van Hintue, The Netherlands 
TfOTsl.i Maarten van Lieshout (Introduction) 
Hi Ilea van Asperen (Basic-progr. ) 
The Dutch version wii in OE wk mm m* 41. 

Dec. 1986, p. 6-14. * 
&nd ch^fle of Hfl. 14,50 to M.l,v. Pelt 
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Figurt I: A Itefe Sofffm of t(te Apple II GS. 
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I OCTOPUS-F0RTH1.2 I 

OCTOPUS-FORTH 1.2 is a Forth-systei, specially build for 
Elektor's Octopu5/EC65 6502-coiputer as published in the 
Elektor's Special Editions. It uses the the OHIO-DOS which 
functions as a host for the Forth-syste«, OCTOPUS-FORTH 
1.2 is based on the aodel of the Forth Interest Group as 
published in their FIG-Forth Installation Manual and the 
FIG-Forth 6502 ftssetbly Source Listing (both of thet can 
be ordered by our club). Several bugs in this •odel are 
retoved and a lot of hifh level Mords are retiritten in 
code to increase speed. Although a lot of other publica- 
tions about Forth have been used, tost of this system is 
written by our clubMiber Fridus Jonkun. 

OCTOPUS-FORTH 1.2 consists of: 

- fl precompiled section: 

♦ Kernel 

♦ I/O 

♦ assembler 

t full screen editor 
» directory-systea 

♦ copy-facilities 

« words to support the VDU-card 
» etc. 

- Utilities: 

♦ recursive decompiler 

♦ tracer for debugging colon-definitions 
f breakpoint-setting for debugging 

» vectoring 

♦ strings 

♦ sysgen for generating Forth-diskettes 

♦ etc. 

- A Meta-compiler: 

The source screens of the precompiled section are in- 
cluded; they can be loaded to build a new precomoiled 
Forth elsewrere in memory. This powerful tool allows 
full control to build a customized system. 

- Documentation screens (English): 

All words used in the precompiled section are fully do- 
cumentated as far as they are not included in the FIG- 
Forth model. Also utilities and the use of the meta- 
compiler are described. 

Memory map: 

- *0000-0100 : zero page 

computation-stack 

- $0100-0200 : terminal input buffer 

- $0200-2200 : kernel, I/O, assembler 

- $2200-3200 : OHIO-DOS 

- $3200-5042 : extensions 

- $5042-BF60 : word-, textbuffers, free for compilation 

- $BF60-DF80 : 8 diskbuffers, each 1 Kbyte 

- $DF60-E000 : user-area 

Diskettes: 

The system as described here will be available on 80 track 
systems, which are single sided (2 diskettes). 



Prices and distribution: 

Because OHIO-DOS is part of the system and is not placed 
in the public domain, you must prove you bought it your- 
self before we can deliver the Forth-system. 
For OCTOPUS-FORTH 1.2 : all rights reserved by our club. 
Send 2 blank diskettes with labels and R/U-protectors and 
a cheque of Hfl. 59 50 (eurocheque Hfl. 50,=) to H.L. van 
Pelt at the editorials office, Krimpen a.d. IJssel. 



THE APPLE ][ BS8 A 16-BITS APPLE ]C 

By : Gert van Opbroek, The Netherlands. 

The Apple ] [-series has a new member: the Apple ][ 6S 
which stands for Graphic and Sound. The machine has the 
following specifications: 

- CPU: &5C816 

- Memory: 256 kB RAM expandable to 4 mB; 128 kB ROM 

- Graphics: five modes rangeing from 40 by 48 points in 16 
colours to 640 by 200 points in four colours; total 
number of colours: 4096 

- Sound: synthesizer with 32 oscillators for 15 simul- 
taneous, independent tones 

- Connections: RGB-port, monochrome Video, Audio stereo 
headphone, 2 RS422 seerial ports joystick or paddles, 
connector for 5 1/4 and/or 3 1/2 inch disk drivii, con- 
nector for the tiparati keyboard and on this keyboard a 
connector for a mouse 

- 7 Apple ][ compatible expasion slots 

The machini ii hard- and loftwari coipatibli with the 
other members of the leriit. This means that most of the 
old Apple ][ software will run on the Apple ][ 68 and that 
the Apple ][ ixpantion boards can be uiid. The old soft- 
ware will run a factor 2.5 to 3 faster on this new machine 

In Holland, thf machinf can bt bought froM 1 Fibruary 19B7 
Hhtn ordered btfort this datt, a lyittm containingi 

- An Apple H 88 with keyboard and louu 

- An Unified 800 kB 3.5 inch disk 

- An Apple ][ GS BM monitor 

- An Apple IC GS 256 kB expansion card 

will cost Dfl. 4794.00 incl. 20* VAT. 
Information aoout this machine: 

- In Holland: Apple Computer B.V. 

Post bus 7 

3712 ZG Huis ter Heide 
03404 - 86922 

Refer to our clubs magazine. 

- A Poruct Review can be found in BYTE October 1986. 



ML BASICODE UTILITY-DISK FDR ELEKTOR'S 0CT0PUS/EC55 

Our member Marc Lachaert developed the new bootable disk 
for 40 trs, SS, DD on your Octopus. Because OHIO-DOS is 
part of the system and not is placed in the public domain, 
you must prove you bought it yourself, before we can deli- 
ver the diskette. 

The diskette boots up with a menu to choicei 

1. Loading the standard BASICODE-2 subroutines from DISK 
and the BASICODE program of your choice from TAPE 

2. Loading the BASICODE program of your choice from TAPE 

3. Loading a program from DISK and MERGE it with a 
BASICODE program from TAPE 

4. Saving the program of your choice from DISK in BASICODE 
format on TAPE 

5. Enable/Disable the RSEQ/EDIT commnds 

6. End of program. (EXTRA: BASIC GAME 'SLIDING GRID") 

To order the diikettt Mnd chiqui of Hfl. 22,00 (euro- 
cheque Hfl. 12,50) and a blank diiketti to U.L. van Pilt. 



Fabelachtig prin ten in kleur of zwarti wit 





OKIMATE 20 




OKI MICROLINE 182 



Futuristische OKI-afdrukkers erkend de OKImate 20 v.a. tl. 985.-- 

beste in Nederland. Nu ook voor Microline 182 v.a. fl. 1170.-- 

iedereen betaalbaar gewordert. excl. b.tw. Bruto adviespriis 
Aansluitbaar op Commodore 64, BBC, 

MSX e.a. homecomputers. OKI printers, door computers voor computers. 



Vraag de dealerlijst bij de officifeie importeur 



Vi". 



Technitron B.V. 



Zwarteweg 110, Postbus 14, 1430 AA Aalsmeer? tel. 02977-22456 - telefax 02977-40968 - telex 13301 



